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EDUCATIONAL GAMES 


z ß e aaa aaaeaii O 


iom computer version of the popular word game. 


Visit the famous analyst for ink-blot testing. Get professional advice. 


Spatial Concepts ТІТТТІТІТІТГІТІІТІГІТІТІТІГІІІІТІТІТІТТІТІГІТІГІТІІТТІТІТІТІТІТІТІТІТІТІІТІТІТІТГІТІТІТІТІГІТТІІ 15 
. A castle where objects can be placed in a variety of positions. For young children. | 


Mind Reader п.вввв“.и.авввввавваввв.авш...а.ававвввв.в.шасевввавввиввнванвинваававиаававввавааваоааввввававававан 19 
Can уои guess the number the computer has іп mind? Can the computer guess the опе you have іп mind? 
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Wouldn't you know it? Your computer is a poet! 


No Free Lunch ELI 24 
Cross a hazardous tide pool to reach your lunch by giving correct math answers. 


Spelling Bee ТТІГІТІТІПГІТГІГІТІГІ ІТГІТГІТІТІТТГ ТІТТТІТТІТІ ТТТТТТТІТТІТТТ Т ТТТІТТТТТТТТІТТТІТІТІТІТТІТТІТТІТІТЛІТІ 26 
Watch the bumble bee spell out a scrambled word. Give the correct spelling to win. 


Speed Reading ———É— —— à rA EE ERE 28 
Learn computerized reading skills for rapid information intake. Gain speed as your skill level improves. 


Pre-School Counter "PEPEPETTTTTITTTTTTILITILLTILLTTITLTLTLTTTLTTTILITTTLTTTTTTTTITTTTTTTITTITITITTITTTTILITTITITITITTITIITHITHI 31 
. Computer displays 1 to 10 ymo and asks "How many?" Child receives a happy or sad face for correct or 
incorrect answers. 


Keyboard Shooting Gallery EUN Ur x ⁊ ß HORS PERPE 33 
Try your hand at the computer shooting gallery. Learn the keyboard at the same time. 


Translator —— ——————— V E A E 36 
Computer has foreign words and English equivalents for user's study of foreign language. | 


BOARD GAMES 


Shell Game % ————— ———— COENA 38 
Computer version of the classic sleight-of-hand game. | 


РИ б: ызасына End 


Find and battle the scourge of the sea. You're the captain looking for adventure, glory and stolen gold. 


Master Code e e . 46 


Computer selects a code. You crack it. 


А Day АГТПЕНасев; ꝰ˙ ˙ꝙàꝛy U—I—T̃ 8 


Bet on a dog race. Watch the race and find out if you're a winner. 


Lost Dutchman Mine авввввввввввввваввввввввавввввввввввавававвввввавванавиананаававвавнвнаваяанвавввава 53 
You're looking for the mine's treasure. Find clues while escaping from ghosts. 
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Computer calculates and predicts your emotional, mental and physical levels for any date. 


Queen Of The Nile 222 „9 60 
Search for Cleopatra's lost treasure, but be careful of snake pits and mummies. 


Pe RETI T ETE ᷑ E EA 7. 


Go ice fishing late in the season, but watch out for thin ice. 


Bomb Squad везаэаеозвпаввивазввзавзэзвзишвзевэзпивевиавиевивәвәзивавэввивтәввпаввваавпаввпеававашнванаивпиваававав. 68 
косе and diffuse a bomb hidden in a huge skyscraper. | 


ou're an island ruler beset with decisions. Will they help or hinder your reign? 


Tic-Tac-Toe еа 77 


For two players. 


Dice Race — EAE EE NI MERE 80 


Use computer dice to race your cars across the finish line. 


z p p p ГК ТГ Г аты OS - 


Your chance to visit Earth. Will you соте as friend or foe? 


ARCADE GAMES 


Shoot The Rapids —————— M" 87 


9180 on course in your kayak while traveling down а салде set of purs 


Invaders from outer space, coming fast and straight at you! Stop them before ihey crash into you. 


Space Maneuvers ........................................................................ 94 


Fly your spacecraft through crowded space traffic. Avoid collisions to score. 


Missile Defense апававааазавиввипаввивнааанававпававвапапавпапавававававваванвивваввипнпанавпававпанвевпаввавваав 96 
Defend your cities against missile attack by intercepting oncoming missiles. 


Wall ЄТ], с uuu INT EI EIU 100 


Trap your opponent (the compute!) by building walls on the screen that limit the computer's cursor motion. 


F ²¹ÜmmAàA1.1... dd ³ꝛw. ]ðö ERES 102 


You're defending the rear of an intergalactic starfighter under attack from alien educators. Type fast and accurately 
to survive. | | | 


СӨ Мапе TEE EINE TERES [US 


Drive your race car through a twisting track. Avoid debris and guardrails. 


Moon Lander BEUBNEBUSSESBESBBOSBOBOOSOSBSBEBSBOSEONBRBERNBEURBEONUBEURBSGGBOBENEEBEDREERSEEUNUOUBEUSDBEEBSENEROSRBESESRBOBUESBERSERAS 108 
Land your spaceship on the moon's surface by controlling thrust, speed and other factors. 
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Play the odds with the computer's one-armed bandit. 


e u u . . ß WAG 


You control Orion's missiles. Use them to defend your cities against к; drones. 


Berserkotron .. . . . . T A T 117 
You've gone to interview for a job as a computer game tester but entered the Robot Room where visitors i are not 
allowed. Run away if you can. 


Introduction 


This book stresses one thing—your Commodore 128 computer can give you great fun! Even though | 
you may use it for serious applications, you should not ignore its ability to give you hours of challenging 
entertainment. Computer games add that dimension to home-computing. 


ABOUT THE 35 GAMES IN THIS BOOK 

Some game books give you short programs and tell you to add scoring, graphics and other interesting 
things. This book is different. It consists of 35 complete games. They have color, graphics, sound, 
musical interludes, split screens, instructions to players, and scoring. They feature the full capabilities of 
the Commodore 128 used in the 128 mode. 

In addition to the program listing, each game has suggestions for possible programming variations. 
First enter the complete, working game. Try it as is. Then change it if you want to. 

This book doesn't explain the rudiments of BASIC programming because I assume that you already 
have reference books to do that. What the book does supply is a variety of fun game programs that 
Work. 

The games are divided into three categories: Educational, Board and Arcade games. The first category 
includes word and number fun for children and older computer users. The second includes puzzle and 
logic games you could play on a board, such as Tic-Tac-Toe. The third category, arcade games, has 
moving graphics, like video games that cost money to play. 

How To Use—Each game begins with a description of game rules, number of players, display, 
objective, scoring and keys to press. Don't skip this section. Read it carefully. 

Then enter the program listing into your computer exactly as shown. The information on pages 6 and 7 
tells you how. The listing is a reproduction of actual printout from tested, debugged, working programs. 
Because it is 40 characters wide, it looks like your display when it is in the 40-column mode, as it 
should be for 34 of the 35 games. 

When you make typing mistakes—and you will—the game may not work as intended. Or, it may not 
work at all. You'll have to find your mistakes and fix them. 

Play the game for a while. If you like it, save it on disk. Otherwise, you'll have to type in the game 
each time you want to play it. | 
Between Games— Before starting another game, either by typing one in or loading it from disk, you 
should clear the computer. This way, there will be no “residual” effects of the previous game. The 
simplest way to reset the computer is to depress the RUN/STOP and RESTORE keys at the same time. 

A more "drastic" method is to depress the Reset button on the right side of the computer. This second 
way is similar to turning the computer off and then on. 

How to Change а Game—After you've become familiar with a game, consider changing or improving 
it. Use the comments to the side of the computer printout as suggestions on how you can simplify the 
game, make it more complicated, speed it up, slow it down or supply different data. Only some of the 
possibilities are shown. Have fun experimenting! 

Although this isn't a book about programming, changing the games will help you learn more about 
programming in BASIC 7.0. If you want to learn more, get The Essential Commodore 128 User's Guide 
by Jerry Willis, also published by HPBooks. It tells you all about your computer and how you can use 
BASIC to write and control programs. | 

Even if you don't know BASIC 7.0, you'll have good times with these games. If you already know 
some BASIC 7.0, all the better. This book can be a springboard to your own creative programming. 


Introduction 


WHAT YOU NEED TO USE THIS BOOK 

The games in this book are written specifically for the Commodore 128 computer in the 128 mode, 
used with a 40-column display. None of these games requires a lot of memory. Plenty of memory is left 
over for you to add your own features to any program. 
Other Items— To use the full capabilities of the Commodore 128, you need a color monitor. To display 
80 columns, you need an RGB monitor. Only one game, Translator, is written for 80-column display. 

Some arcade games should be played with a joystick. It's an inexpensive accessory that makes these 
games more enjoyable. 
What Else? —1 assume that you know how to use your computer hardware and that you're familiar with 
your computer keyboard. I also assume that you're eager to have fun with your computer and to learn 
something about BASIC as painlessly as possible. 

If you think that typing an amazing game into your computer isn t painless enough, there's an easier 
way. Simply send a $30 certified check or money order (for fastest service) and your name and address 
to the address below. You'll receive a floppy disk of all 35 games in this book. 


MIKO WARE 
PO BOX 95759 
Seattle, WA 98145-2759 


For more information about programming 
and using your Commodore 128 
computer, | recommend this book. You 
can order it from the publisher, as shown 
on page 120. 


How to use and enjoy | your Commodore 128 
computer, disk drive, printer and peripherals 
for super обра ower! В | 
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UNDERSTANDING PROGRAM PRINTOUTS 


The program lines in this book are actual computer printouts of working games. To make 
the lines easier for you to copy, program lines are 40 characters long, the length of a program 
line when the Commodore 128 is used in the 40-column mode. 


USING THE KEY-COMBINATION TABLE 

A special notation system is used for certain keystrokes. This avoids the difficult-to-read 
characters that Commodore uses for certain keystrokes. These characters are replaced in the 
program listings by notations appearing in brackets like these 1 }. The table on the next page 
summarizes the notations and keystrokes they represent. 

For example, if you see {C/UP}, press the Cursor Up key. Or, if you see {RVON}, press the 
CONTROL and RVS ON keys at the same time. When you do, the screen will show the 
difficult-to-read character, not the notation used. In the case of the Cursor Up key, this is the 
letter Q in a reverse field. 


USING PROGRAMMING NOTES 

Some programs also feature Programming Notes in the margin. These notes will help you . 
figure out the number of times to depress the spacebar to produce a blank area in a PRINT 
statement. Other notes will help you create graphic characters shown in the program lines. 

Or, you can use your computer to figure out the keystrokes required to produce these 
characters. On the front face of most keys you'll see two graphic characters. To put the one - 
on the right in a program line, depress the SHIFT key and that particular key at the same time. 
To get the character on the left, depress the COMMODORE key and that key at the same 
time. 

Programming Notes for graphic characters use this type of notation: SHIFT-M or 
COMMODORE- +, for example. 


PRACTICE | 

Reading and understanding these two pages before you try entering any of these games will 
prevent lots of frustration and mistakes. That's why | strongly urge you to practice some of 
these keystrokes right now! 

Using your Commodore 128 in the direct mode, type in the keystrokes shown in the table on 
the opposite page. You will see the resultant symbols and learn the location of important keys. 
In addition, familiarize yourself with the different graphic characters you can get using the 

COMMODORE or SHIFT key pressed at the same time as other keys. 


© KEY-COMBINATION TABLE 


Listing 


{INS} 
{DEL} 
{C/UP} 
{C/DN} 
{C/LF} 

. {C/RT} 
{HOME} 


Press Key(s) 


SHIFT-INST/DEL 
INST/DEL 
CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT 
CLR/HOME 


Key-Combination Table 


{CLR} . SHIFT-CLR/IHOME ` 
. {RVON} | CONTROL-RVSON 
{RVOF} CONTROL-RVS OFF 


{BLK} 
{WHT} | 
{RED} 
{CYAN} 
{PURP} 
{GRN} 
{BLUE} 
{YELO} 
{ORNG} 
{BRN} 
{LRED} 
{GRY1} 
{GRY2} 
{LGRN} 
{LBLU} 
{GRY3} 


CONTROL-BLK 
CONTROL-WHT 
CONTROL-RED 
CONTROL-CYN 
CONTROL-PUR 
CONTROL-GRN 
CONTROL-BLU 
CONTROL-YEL 
COMMODORE-1 
COMMODORE-2 
COMMODORE-3 
COMMODORE-4 
COMMODORE-5 
COMMODORE-6 
COMMODORE-7 
COMMODORE-8 


Hangman 


Hangman 


Sharpen your word skills by playing this classic game with your computer. The computer will think of a 
word. You guess it, letter by letter. A correct letter will be inserted into the appropriate space. Each wrong letter 
adds to the hangman. You are allowed 12 wrong guesses before being hung. When the hangman is complete, 
the whole word is displayed. The computer gives you 10 words. Your score is based on the length of correctly 
identified words and the number of missed letters. 

A special feature is the alphabet display at the top of the screen. Each time a letter is chosen, it is highlighted 
and frozen so you can't use it again. 
Fans of cowboy music will recognize the musical theme as The Streets of Laredo. 
| 10 REM HANGMAN 
| 20 SCNCLR 
Alteration For a “bare bones" version of the 30 LET X=0 


game, leave out program lines that create | 40 LET X-X*1:1F X<2 THEN GOSUB 60 
musical effects. These are lines 30-130 and 50 GOTO 140 

430. Be sure to keep other lines numbered as 12 

shown so GOSUB and GOTO statements 60 TEMPO 


remain correct. 70 PLAY "V104TS5US8X0"; REM VI-GUITAR 
80 A$-"V104GC.GCOSISBGOA$BO4GCOSS$B.GAIGGF 
есес | 


90 B$-"V1O03HFIFIFGGGAGSBGAGGGFGGORGC 

100 C$-"V104.8CO3ISBGAGSBO4GCO3G$B.GAIGG 
GGEGC" 

110 D$-"V103HFIFIFGGGAGSBGAGGF.F" 

120 PLAY АФ: PLAY BS: PLAY CS: PLAY D$ 

130 RETURN | 

140 COLORO,7:COLOR4, 13: PRINTTAB(15) "(CLR 
} {WHT} CRVONJHANGMAN" 

150 PRINT"{C/DN}THE COMPUTER WILL THINK 
OF 10 WORDS" 

160 PRINT"AND YOU WILL TRY TO GUESS THEM 
BY":PRINT"GUESSING ALL THEIR LETTERS." 
170 PRINT"{C/DN} TWELVE WRONG GUESSES BUI 

LD THE HANGMAN, " 

180 PRINT"THE ALPHABET WILL APPEAR AT TH 
E TOP OF" 

190 PRINT"THE SCREEN TO REMIND YOU WHAT 
YOU HAVE":PRINT"ALREADY PICKED." 

200 PRINT"{C/DN}HIT ANY KEY TO CONTINUE. 
": GETKEYGS 

210 DIMW$(80),A(26),2(80) :2(0)-80 

220 FORX-1TOB80:READW$ (X) : NEXT 

230 FORX-1T080:2(X)2X:NEXT: FORX-OTO9 

240 RSINT(RND(1)XZ(0) +1) :W (O0 2 UR) 

250 2 (R) z (2 (000: 2 (002 (0-1: NEXT 

260 FORPL=0TO9: GOSUBé80 

270 CHARI,1,20, "WORD H"*STR$(PL*1) 

280 FORX=1TO LEN(WS(W(PL))) 

290 CHARI, 10+2%X, 20, - МЕХТ 

300 CHAR1,1,22,"PICK A LETTER BY HITTING 
THE KEY" 


М 
M 
* 2 
a 7% “А: 
ocak ` ` e. 
(Nata 
8 
M 
4 X 
; 


1 
& v| 
' 
f i 
M 
4 x 
BIA М 
^ 
№ 
М \ 
B 


` * 
* 
` 
Ll М 
mass 
желі. | 
TE 
` ` 
= 
` 
` ` 
' ғ 
М E 
Е we 4 
` HN à 
M Y I 
BANI ІН i 
х А 
4 к, ' 
ША n 
$ O . : 
“AS 
` 24 , 1 
Ú ` 
Whe P А; , 
D y» y Me 
` 17 5 , / 
= * 
$ tur Ме 
| Д ^ : 4 ; y 
e "Un. ; 
SN 
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Programming Note — The blank part of line 
330 is equal to 32 spaces. 


Alteration—A simple vocabulary of 
commonly used English words is in DATA 
statements 510 to 660. Depending on the 
average length of the words, your Commodore 
128 can store several thousand words. If you 
want to enter more than the 80 words in this 
program, you must make space for them in 
memory. Do this by increasing the value of DIM 
W$ in line 210 and also the value of Z in line 
210 to equal the number of words in the list. 


Alteration—Design the word list for a certain 
user. For example, make a list of foreign words 
for the person learning a foreign language. Or, 
make a list of simpler words for a child learning 
how to spell. 


Hangman 


310 GETKEY@S: IFQS< "A" ORGS> Z THENSILO 
320 L=ASC (0%) -64: IFA(L) THENS10 
330 CHAR1,1,22," 

H 


340 A(L)=1:CHAR1,ó+L,1,0%$,1 

350 P=INSTR(WS(W(PL)) , 9%) : IFP=OTHENE=E+1 
600400 

360 FOR - 1 TOL EN (WS(W(PL))) 

370 IFMIDS(WS(W(PL)),X,1)=QSTHENCHARI, 10 
+2¥X, 20, 9%: С=С +1 

380 NEXT: IFCL<LEN (W$(W (PL) )) THENS00 

390 CHAR1,1,21, "XX¥XSUCCESSHXX" : CW=CW+156 
0TO440 

400 ON E G0SUB720,790,850,870,900,920,94 
0,960,980, 1010, 1040, 1070 

410 IFE<12THEN3OO 

420 CHARI,1,21, "SORRY, THE WORD WAS "+W% 
(W(PL)) 

430 GOSUB 60 

440 CHAR1,1,22,"HIT ANY KEY FOR NEXT WOR 
D" 

450 GETKEY@S: SCNCLR:E=0:CL=0 

460 FORX=1T026:A(X%) O: NEXT: NEXTPL 

470 GRAPHICO:PRINT"{CLR}QUT OF TEN WORDS 
, YOU GUESSED"CW:PRINT"OF THEM CORRECTLY 
g" , 

480 PRINT"{C/DN}PLAY AGAIN (Y/N)?" 

490 GETKEYGS$:IFG$-"Y"THENRUN:ELSEIFG$4»" 
N"THEN490 

500 END | 

510 DATA THE,AND, THAT, FOR, WITH 

520 DATA WAS, HIS, NOT, BUT, HAVE 

530 DATA YOU, WHICH, ARE,HER,HAD | 

540 DATA FROM, THIS, THEY, THEIR, SHE 

550 DATA HAS, WERE, BEEN, HIM, ONE 

560 DATA SO,WILL, THERE, WHO, WHEN 

570 DATA WHAT, YOUR, MORE, WOULD, THEM | 

580 DATA SOME, THAN, MAY,UPON, ITS 

590 DATA OUT, INTO, OUR, THESE, MAN 

600 DATA LIKE, SHALL, GREAT, NOW, SUCH 

610 DATA SHOULD, OTHER, ONL Y , АМҮ, THEN 

620 DATA ABOUT,THOSE,CAN, MADE, WELL 

630 DATA OLD,MUST,SAID,TIME,EVEN | 

640 DATA NEW, COULD, VERY, MUCH, OWN 

550 DATA MOST,MIGHT,FIRST, AFTER, YET 

660 DATA TWO,END,EASY,FLY,BEGIN ` 

670 REM SET UP SCREEN 

580 GRAPHIC1,1:COLORO,2:COLOR1,2:COLOR4, 


690 FORX-65TO90: CHARI, X58, 1, CHRS(X) : NEX 


MORE 


9 


Hangman 


10 


700 RETURN 

710 REM GALLOWS 

720 B0X1,149,27,187,32,0,1 

730 B0X1,187,32,182,142,0,1 

740 FORX-OTO10STEP5 | 

250 B0X1,122-X,1424X,1924X,1474X,0,1 


760 NEAT 


770 DRAWL, 151,32 TO 151,37:RETURN 
780 REM HEAD 
790 CIRCLE1,152,47,15,10 


ВОО CIRCLE1, 152,48, 2, 2: B0X1,149,52,155,5 


810 PAINT1,145,47 

820 CHAR1,18 ,5,"--",1 

830 RETURN 

840 REM NECK 

850 B0X1,150,57,154,62,0, 1: RETURN 
860 REM BODY 

870 CIRCLE1,152,95,10,23:PAINT1,152,85 
880 RETURN 

890 REM R ARM 

900 BOX1,141,65,137,94,20,1: RETURN 
910 REM L ARM 

920 BOX1,163,65,167,94,340, 1: RETURN 
930 REM R LEG 

940 B0X1,145,97,140,132,10, 1: RETURN 
950 REM L LEG 

960 B0X1,159,92,163,132,350, 1: RETURN 
970 REM R HAND 

980 CIRCLE1,133,98,3,3:PAINT1,133,98 
990 RETURN | 

1000 REM L HAND | | 
1010 CIRCLE1,171,98,3,3:PAINT1,171,98 
1020 RETURN 


1030 REM R FOOT 


1040 CIRCLE1,137,136,4,4: PAINTI, 137,136 


1050 RETURN 


1060 REM L FOOT 
1070 CIRCLE1,167,136,4,4:PAINT1, 147,136 
1080 RETURN 


Dr. Sigmund 


Dr. Sigmund. 


Find out more about yourself by having the great psychiatrist Dr. Sigmund analyze you. Once on the 
couch, you are shown computer-generated ink blots. You enter your first impression about what you see and get 
instantly analyzed in the classic fashion. You get 14 analyses per visit. There are no scores and no losers. This is 
a great game for a party. mE 

А special feature of this program is the split screen. The computer uses the top portion of the screen to draw 
ink blots and the bottom portion to display text. | | | 


10 REM. DR. SIGMUND 

20 SCNCLR 

30 TEMPO 8 | 

40 PLAY "V1O4TSUSXO":REM Vi=GUITAR 

50 PLAY "V204TSUS8XO":REM V2=GUITAR 

60 AS="VIOSSESHD" 

70 BS$-"V1OSSESHDSESHDSEO4SBOS5SDO4SC" 

80 C$-"V104.14AV202S8A03SEV104IRV203SAO048C 
SESRV104SA" | 

90 D$-"V104.IBV2015COSSESHG.IRV104SESHGS 
B" 

100 E$-2"V1058AV202SA03SESAO4EV105SESHD" 
110 FS="V104WAV202WA" 

120 PLAY AS: PLAY BS:PLAY C$: PLAY D$ 

130 PLAY ES:PLAY BS: PLAY СФ: PLAY D$ 


MORE — 


11 


Dr. Sigmund 


Alteration Change the number of questions, 
variable S, in line 300 to a number other than 
14. 


12 


140 PLAY F$ 

150 COLOR4, 12:COLORO, 16: D$-" CCLR2 CC/DN3C 

C/DN}{C/DN3{C/DN3{C/DN3{C/DN3{C/DN3{C/DN 
${C/DN3{C/DNI{C/DN3{C/DN3{C/DNI{C/DN3IC/ 

DN}{C/DN}{C/DN}{C/DN3{C/DN}{C/DN3{C/DN}" 
: DIMRX (22) ,RY (22) 

160 PRINT"£CLR3(RED2HELLO, I AM SANDY, А 

SSISTANT TO":PRINT"DR. SIGMUND. " 

170 INPUT"IS THIS YOUR FIRST VISIT";AS 
180 ІҒІЕРТФ(АФ,1)-"М"ТНЕМЗ10 

190 INPUT"{C/DN}WHAT IS YOUR NAME"; Ве 

200 PRINT"{C/DN}YOU ARE IN LUCK, "B$",": 

PRINT"DR. SIGMUND WILL SEE YOU NOW. ":SLE 

EP3 

210 PRINT"{CLRIPLEASE, MAKE YOURSELF СОМ 

FORTABLE ON":PRINT"THE COUCH. " 

220 PRINT"{C/DN}I SEE THAT YOU ARE А LIT 

TLE BIT":PRINT"NERVOUS, "BS". "3 

230 PRINT"TRY TO RELAX. ":SLEEPS 

240 PRINT"{C/DN}I HAVE SOME PRETTY PICTU 

RES TO SHOW YOU." | 

250 PRINT"JUST LET YOUR MIND GO TO REST. 
LOOK AT" 

260 PRINT"THE PICTURES AND PICK FROM THE 
LIST" 

270 PRINT"WHAT THEY REMIND YOU OF. IF YO 
U THINK" 

280 PRINT"OF SOMETHING ELSE, JUST ENTER 
ТНАТ.":5-0:<51ЕЕР8 

290 SLEEPS:REM RORSHACK TEST 

300 S=St+i:IFS=14THEN910 

310 GRAPHIC2, 1: COLOR1,7 

320 DRAW1,159,0T0159,199T0160, 199T0160,0 
330 DRAW1,0, 1597031, 159 

340 DRAW1,0,0T0319,0 

350 FORX-1TO020:RX(UX SINT (RND(1) X320) : МЕХ 
T:RX(O)20 

360 FORX=1T022:RY (X) INT (RND (1) & 160): МЕХ 
TERY (O) 80 

370 FOR 20 7022: RX (Х) IN (RND (1) X25) +75: 
NEXT 

380 PRINTDS$"OK, HERE IS A PICTURE..." 
390 FORX=1TO10 

400 DRAWi,RX(UX-1) ,RY CXC- 12 TORX (X0 ,RY (X) 
410 DRAW1, 319-RX(X-1) , RY (X-1) 7031 -RX OQ) 
,RY (X) 

420 NEXT: FORX=10TO12 

430 A-RND(1)X180 

440 XR=RND(1)¥100: YR=RND(1)¥100 

450 CIRCLE, Rx (&), Ry (X), XR, YR, „„ f, 58 

460 CIRCLE, 31% -RX X) JRY (0 , XR. YR, ,,360- 
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Alteration—Change апу word and its 
corresponding interpretation. For example, 
change SPIDER in lines 500 and 540 to a 
friend's name and change the comment in lines 
690 and 700 to a special comment regarding 
your friend. 


470 NEXT: FORX=13TO22 
480 PAINTI RX (X) ,RY OX) 
490 PAINT1,319-RX (X) ,RY (OX) : NEXT 


500 PRINTDS" SPIDER MOTHER CAT 
BUTTERFLY" | E 
510 PRINT" SNAKE CAMEL ROPE ` R 

' EINDEER" О | 

520 PRINT" FATHER FACE FOOD . I 


NK BLOT" | 
530 0$2"";INPUTOS$:PRINTDS; 
540 IFOS="SPIDER"THEN690 ` 
550 IFOS="MOTHER” THEN/10 
560 IFOS="CAT" THEN?SO 

570 IFOS="SNAKE" THEN?SO 

580 IFO$-"BUTTERFLY"THEN77O 
590 IFO0$-2"ROPE"THEN79O 

600 IFOS="REINDEER" THENS10 
610 ІҒОФ-"ҒООВ" THENS3O | 
620 IFOS="FATHER” THENS40 
630 ІЕОФ= "ІМК BLOT" THENSSO 


640 ТЕОФ= "РАСЕ "ТНЕМ870 


650 ІРОФ= "САМЕ "ТНЕМ890 

660 PRINT"TELL МЕ ABOUT YOUR CHILDHOOD." 
SINPUTPS | | 

670 PRINTD$;:INPUT"GO ON...";P$:PRINTDS; 


5 INPUT"HMMM...TELL ME MORE.";P$ 


680 PRINTD$"THAT IS ENOUGH FOR NOW. CALL 
ME TOMORROW ABOUT THIS.":GOTO290 

é90 PRINT"OBVIOUSLY YOU FEEL ENTANGLED. 
THE" 

700 PRINT"SPIDER IS A SYMBOL OF YOUR ҒЕА 
R OF"iPRINT"FRUSTRATION.":GOTO290 

710 PRINT"YOUR DEEP FEELINGS FOR YOUR МО 
THER ARE" 

720 PRINT"GNLY NATURAL. DO NOT BE AFRAID 
TO ШЕТ": PRINT" THEM SHOW. ": GOTO290 

730 PRINT"SOMEWHERE IN YOUR SUB-CONSCIOU 
S YOU":PRINT"HAVE A FEAR OF CATS..." 

740 PRINT" YOU STARTLE WHEN ONE CROSSES Y 
OUR PATH": PRINT"AT NIGHT. ":GOTO290 

750 PRINT"BEWARE THE SNAKE. YOU NEED TO 
CONTROL" | 

760 PRINT"YOURSELF IN TENSE SITUATIONS." 
26070270 

770 PRINT“ THE BUTTERFLY SYMBOLIZES YOUR 

FREE" | 

780 PRINT"SPIRIT AND GREAT INNER JOY. LE 

T^iPRINT"YOURSELF HAVE FUN.":GOTO290 


790 PRINT"THE ROPE IS A SIGN OF THE STRO 


NG SUPPORT" 
МОВЕ > 
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800 PRINT"YOQU OFFER YOUR FRIENDS. YOU НА 
VE GREAT": PRINT" INNER RESERVES.":GOTO290 
810 PRINT"YOU ARE BLESSED WITH A CHILDLI 
KE LOVE" | 

820 PRINT"FOR NATURE. YOUR HEART IS PURE 
68070290 | 

830 PRINT"EITHER YOU ARE HUNGRY OR YOU D 
ESIRE TQ":PRINT"FEED OTHERS.":GOTO290 
840 PRINT"YOUR FEELINGS FOR YOUR FATHER 
MUST":PRINT"SOMEDAY BE EXPLORED. ":GOTO29 


850 PRINT"YOU ARE A REALIST. UNFORTUNATE 
LY, You" | 
860 PRINT"ARE WITHOUT IMAGINATION. ":GOTO 


870 PRINT"YOU ARE LIKE А NEWBORN CHILD; 
YOU ARE" | | 

880 PRINT"ATTRACTED TO FACES. YOU SEEK A 
ССЕРТАМСЕ AND LOVE.":GOTO290 

890 PRINT"ONE HUMP OR TWO?":PRINT"SERIOU 
SLY, YOU ARE ALONE ІМ А SPIRITUAL" | 
900 PRINT"DESERT. YOU CAN PREPARE TO КЕЕ 
NTER THE":PRINT"WORLD.":GOTO290 

910 GRAPHICO:PRINT"{CLR3THANK YOU FOR CO 


MING." 


920 PRINT"I WILL SEE YOU AGAIN NEXT WEEK 
."SPRINT"PLEASE LEAVE $50 ON THE TV." 


Spatial Concepts 


Spatial Concepts 


This fun program is enjoyed by young children. It combines the fun of picture-making with learning the 
concepts of up, down, left, right and in. 
The child chooses from a list of objects: bird, child, duck and star. Then the child chooses where to place the 
object in the colorful castle and landscape displayed on the screen. The object can also be erased. 
The child should play along with an older person— especially if the child can't read. Together they can create 
pictures and a story too! This game also features an adaptation of Carcassi's famous Waltz in С. | 


10 REM SPATIAL СОМ. 

20 SCNCLR | | 

30 TEMPO 16:КЕМ WALTZ IN C BY CARCASSI 
40 PLAY "U104TSUSBXO":REM V12GUITAR 

SO PLAY "V204T5U8XO": REM V2=GUITAR 

60 PLAY "V304TSUS8AO":REM V3=GUITAR ` 
70 A$-"V1038GO02.HC V2O04IRIEICIE V1O03GG" 


MORE > 
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80 B$-"V103.HG V204IRIEICIE V1030G" 

90 СФ-"У103.Нр V2OJIRIFIBIF V1030G" 

100 р%="0102.Нб V204IRIFIBIF 10306" 

110 E$-"V1O03.HC У204ІРІЕІСТЕ V1O3GG" 

120 ҒФ-"У102.НА V204IRIEICIE V103G8A" 

130 G$-2"VIO3.HD V2O04IRIHFICIHF V103GA" 
140 H$2"V102HGV204HGVSOSHB" 

150 PLAY AS$S:PLAY BS: PLAY C$: PLAY D$ 
160 PLAY E$:PLAY FS: PLAY GS: PLAY HS 
170 D$-"LtHOME34C/DN3£4C/DN3 CC/DN3 CC/DN3 CC 
/DN34C/DN2(C/DN24£C/DN3 CC/DN3 CC/DN3 CC/DN3? 
GCC/DN2 CC/DN2 CC/DN2 CC/DN2 CC/DN3 CC/DN3 CC/D 

N3(C/DN21C/DN2 " ; R$zZ"LCC/RT3£C/RT34C/RT3(C 

/RT3U(C/RTS24C/RT24C/RT3CC/RT3CC/RT3CC/RT 3 
CC/RT3CC/RTI3CC/RT3CC/RT34C/RT3CC/RT3CC/R 

T3tC/RT24C/RTI24C/RT34C/RT3CC/RT32 £C/RT32 XC 

IRTIUC/RTICC/RTI CC/RT3CC/RT3 C/ RTI C/ RT) 

{C/RT3" 

180 L$(1)=RIGHTS (DS, 17) tLEFTS(RS, 11) 

190 L$(2)=DS+LEFTS(RS, 29) 

200 L$(3)="{HOMES(C/DN} "+ ЕРТЕ (RS, 16) 

210 LS (4) LEF TS (DS, 13) t" tC/RT31C/RT 32" 

220 LSS (S) LEFTS (DS, 13) *R$ 

230 PRINT“ {СЕР TAB (12) "{RVONSSPATIAL СО 

NCEPTS" 

240 PRINT"tC/DN3(€C/DN3?UE ARE ABOUT TO PL 

AY А GAME TO LEARN THE"; 

250 PRINT"WORDS: UP, DOWN, LEFT, RIGHT, 

AND IN." 

260 PRINT"tC/DN2 YOU WILL SEE А 5 WI 

TH THOSE WORDS":PRINT"ARQUND IT. 

270 PRINT"{C/DN3EACH WORD IS AT А PLACE 

NEAR THE CASTLE" 

280 PRINT"THAT SHOWS WHAT IT MEANS." 

290 PRINT"{C/DN3AT THE BOTTOM OF THE SCR 

EEN YOU WILL" 

300 PRINT"SEE THE NAMES OF THINGS TO PAI 

NT WITH." 

310 PRINT"YOU CAN USE THESE THINGS TO FI 

NISH THE":PRINT"CASTLE PICTURE." 

320 PRINT"{C/DN3PRESS ANY KEY TO CONTINU 

E.":GETKEYGS 

330 FRINT"CCLR31 WILL ASK WHAT THING YOU 
WANT TO ADD TO"; 

340 PRINT"THE PICTURE AND YOU MUST TYPE 
ITS МАМЕ." 

350 PRINT"THEN I WILL ASK YOU WHERE YOU 
WANT TO" 

360 PRINT"PUT THE THING: UP, DOWN, LEFT, 
RIGHT,":PRINT"OR IN." 

370 PRINT"{C/DN3{C/DN3OK, LET US BEGIN. 


@ . 
RENE ' d ! ni.. ä—— rwn 
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Alteration— Change the castle design by ` 


altering statements in lines 460 to 630. If you 
are really adventurous, try replacing these lines 
with your own lines, using DRAW and PAINT 
statements to build a castle. 


Programming Note—To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 


Line 460 1, 1, 3, 1, 1 


Line 530 3. 
Line 540 15 
Line 550 18 
Line 560 10 
Line 570 18 
Line 580 6, 9 
Line 590 6, 9 
Line 600 6, 9 
Line 610 5, 3 
Line 620 5,3 
Line 630 5 
Line 670 20 
Line 750 5, 5, 5 


Programming Note—Make the first graphic 
character in lines 610 and 620 by typing 
- COMMODORE-D. Make the second one by 
typing COMMODORE-C. 


Spatial Concepts: 


380 PRINT"{C/DN3PRESS ANY KEY TO START." 
: СЕТКЕҮСФ 

390 FORXSITOS:READTS$(UXS) : NEXT 

400 DATA BIRD,CHILD, DOG, STAR,ERASE 

410 FORX=1TOS: READWS (X) : NEXT 

420 DATA IN,DOUN,UP,LEFT,RIGHT 

430 PRINT"4GRN2 CCLR2 CC/DN2 CC/DN3 CC/DN2" 
440 FORX=1624T02023: POKEX, 160: NEXT 

450 COLORO, 2: COLOR4A, 7 

460 PRINTTAB (14) "{GRY23{RVON3 {RVOF? {RV 
ON} {RVOF} {RVON} CRVOF >" 


470 PRINTTAB(14) "{RVON} (RVOF 1" 
480 PRINTTAB(15) "IRVON} {RVOF3" 
490 PRINTTAB(15) "РИМОМ? tRVOF 2" 


500 PRINTTAB(1S)"{RVON3 {BLK} {GRY2} L 


RVOF " 

510 PRINTTAB(9)"CtRVON2. CRVOF3 {RVON} (R 

VOF?  tRVON? {BLK} {GRY2} {RVOF} ҰРУ 

N:  tRVOF? {RVON}  tRVOF 2" | 

520 PRINTTAB(?) "{RVON} {RVOFS {RVON} © 
{RVOF > (RVON 2 {RVOF >" | 

S30 PRINTTAB(9) "{RVON} tRVOF 2 CRVON 32 


{RVOF 5 {RVON} {BLK} {GRY2} CRVOF 3 

340 РКІМТТАВ(9) "{€RVON} (BLK? CGRY23 
{RVOF >" 

550 РЕІМТТАВ(9) "CRVON3 t 
RVOF 1" 
550 PRINTTAB(9)"CRVON? {BLK} {6 
RY23 {BLK} tGRY2J tRVOF 2?" | | 
570 PRINTTAB(9)"CtRVON3 | i 
RVOF 3" 


580 PRINTTAB(8) "{RVON} {BLUE} {GRY23 {WH 


T) {GRY2} {BLUE} {GRYZ}{RVO 
ЕЗ" 
590 PRINTTAB(7)"{RVON}{BLUE} {GRY2} (U 
HT} {GRY2} {BLUE} ‘{RVOF}" 
600 PRINTTAB(6)"{RVON}{BLUE}  {GRY2} í 
WHT} {GRY2} {BLUE} (RVO) 
810 PRINTTAB(7) "{RVON}{ BLUE} {GRY2}s 
"БИШЕ? 
620 PRINTTAB(8) " cRVON3 BLUE {GRY2}s 
= BLUE} | 
630 UE Deb Sod tRVOF 2 (C/ DN 
£C/DN}" 


640 PRINT" {BLK} CC /RTY (C /RT ISS /RTISc/ RTI. 
C/RT3BIRD CHILD DOG STAR ЕКАБЕЧНОМЕ: 
" 


650 PRINTLS$(1)3"{RVON} {BLK} INCRVOF 2" : PRI 
NTL#S(2)5 "{RVON} DOWN{ HOME" 
| | MORE — 


1" 
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Programming Note—Make the graphic 
characters in line 780 by typing SHIFT-W, 
SHIFT-N, COMMODORE- + , SHIFT-M. 


Programming Note—Make the graphic 
characters in line 800 by typing 
COMMODORE-N, COMMODORE-U, 
COMMODOREJ. 
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660 FRINTLS$(3)3s"tXRVONSUPCRVOF 2"; PRINTLS( 
4)5 "{RVONSLEFT(RVOF 2" PRINTLS(5) 5 "{RVON} 
RIGHT CRVOF >" 

670 SPS="{HOME} à 

680 INPUT"tHOMEZCBLK3PAINT WITH"$;PS$:PRIN 


|: TSPS 


690 N=0:FORA=1TOS: IFP$2T$(UX) THENN=X 
700 NEXT: IFN-OTHENóSO | 
710 INPUT" {HOME PAINT WHERE"; ИФ: PRINTSPS 


720 N=0:FORX=1TOS: IFW$zW$ (xX) THENN=X 


730 NEAT: IFN=OTHEN?Z10 
240 CS="{WHT?": IFW$=" DOWN" THENCS="{GRN}" 


250 PRINTLS(N) 5 CS" CRVONJ {C/DN3{C/LF 
SCC/LESIC/LESCC/LFSIC/LFS (C/DN2 CC/L 
F34C/LFSU4C/LF24C/LF3CC/LF 3 {HOME >" 


260 C=" {RVON? {GRN} ": IFWS< > "DOWN" THENCS= 
"{BLK>" | 

770 IFPS="STAR" THENPRINTLS(N) 5 " CC/DN? CB. 
КСЛЕТ". 

780 IFPS="CHILD” THENPRINTLS(N) 5CS5 "{C/RT 
SOLC/DNICC/LFSCC/LFS BAI C/DNICC/LFRCC/LF 
3H" | 

290 IFPS="BIRD" THENPRINTLS(N) ICS )€£C/D 
N3CC/LFSCC/LFS=8>(C/DNIEC/LFFCC/LFH) * 
800 IFP DOG THENPRINTLS(N) 5C#3 "{C/DN3 
AIC/DNSLC/LFSCC/LFR{C/LFS M” 

810 IFPS="ERASE" THENPRINTLS(N) 5 "{RVGN}{B 
LKS{C/DN3 "5 WS(X) 

820 GOTOÓSO 


Mind Reader 


Mind Reader 


Here's a fun guessing game in which you and the computer take turns guessing numbers. The program 
begins with an animated man (you can see his lips move) asking for the user's name. The name is used 
throughout the game. | 

The user has five chances to guess a number between 1 and 20. The computer man helps by giving higher and 
lower clues. The user then chooses either to think of a number or let the computer man think of a number. The 
user enters a number between 1 and 5, and the computer man has one chance to guess the number. After this 
process is repeated five times, the computer man reports the score. 


Alteration—Try adding some music by add- 10 GOSUBS550:REM MIND READER 
ing lines before line 10. Create yourown music | 20 PRINT"{CLR}":FORX=1T016:PRINT!NEXT 
or borrow lines from another game. ЗО PRINTCHRS(27)"T":REM SET SCREEN ТОР 


40 DIM W$(81),6$(5)  . 
50 FORX=0T081:READW$ (X) : NEXT 
60 FORX=1T05! READGS(X) NEXT 
70 А=0: В=3: GOSUB380: INPUTNS 
80 PRINT"{CLR3 "NS", ":A=4:B=11:GOSUB390 
90 51 ЕЕРЗ: А=12: В=18: 60508380: PRINT 
100 А=19: В=25: 60508390: SLEEP 
110 A-226:B232:G05UB380:PRINT 
120 A=33:B=39:GOSUB390:SLEEPS __ 
Alteration —Changing the number 20 in line 130 C=0:FORG=1T05:K=0:M=INT (ЕМр (1) X20) +1 
130 will change the range of guessed numbers. 140 A=9:B=10: 60508380: GOSUB420:K=K+1 
Also change the 20 in line 160 to agree with the 150 А=11:В=11: 60506390: INPUT" (1-20) * ; 85$ 


change in line 130. 
MORE — 


РА 
Kg 
А“, 


»* 


55; 
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Alteration— Control the rate of “talking” by 
adjusting the range of T in line 400. Greater 
than 100 slows it; less than 100 speeds it up. 


160 N=VAL (6%) š IFN< LORN>2OTHENI40 

170 IFM>NTHENA=40: В=40: GOSUBSSO: SLEEPS 
180 IFM<NTHENA=41: В=41 : 60508380: SLEEPS 
190 IFM=NTHENWS (48) =MIDS(STRS(K) ,2) A742 
: Bz49: GOSUB380: C=C +1: GOTO230 

200 ІЕК<5ТНЕМ140 

210 us (54) MI DS (S TRS (M), 2 

220 A=50: B=54: GOSUBSSO 

230 SLEEP3:NEXTG 

240 W$(55)zN$:W$(58) =MIDS(STRS(LOOXC/S) , 
2): A255: B260: GOSUBSSO: SLEEPS | 

250 A=61:B=61: GOSUB3S80: A227: В=39: GOSUBS? 
О: SLEEPS 

260 C=0:FORG=1TOS 

270 W$(64) =6% (6) : А=52: B267: GOSUBSSO ` 
280 INPUT GS: IFQS< "1 "ОРОФ> "5 "ТНЕМ280: ELSE 
N=VAL (Q$) 

290 M-INT(RND(1)X5)41: SLEEP1 

300 IFM=NTHENA=68: В=71 : 60508380: С=С+1: 60 
TO320 

310 A=72: B=74: GOSUBSSO 

320 SLEEP2:NEXTG 

330 SLEEP2: A=75: B279: W$ (77) =MIDS(STRS (OX 
20) , 2): 608UB380 

340 FORT=1T01000: NEX TT: 4-80: B=81: GOSUBSS 
0 

350 INPUT NS 

360 IFLEFTS(NS, 1)="Y¥" THENCLR: 507040 

370 GRAPHICO: SCNCLR: END 

380 PRINT" {CLR3" 

390 FORX-ATOB:GOSUBA440:;PRINTWS(UA)" "j 
400 FORT=1T0100: NEXT: GOSUB450 

410 FORT=1T0100: NEXT: NEXT: RETURN 

420 GOSUB440: PRINTGS(G) " "5 3FORT-21TO100: 
NEAT 

430 GOSUB450: FORT=1TO100: NEXT: RETURN 

440 SPRITE 1,1,1: RETURN: REM MOUTH OPEN 
450 SPRITE 1, 0: RETURN: REM CLOSED 

460 DATAHELLO, WHO, ARE, YOU, YOU, ARE, ABOUT, 
TO, PLAY, GUESS, THE, NUMBER. 

470 DATAFIRST,1,WILL, THINK, OF, FIVE, NUMBE 
RS, AND, YOU,WILL, TRY, TO, GUESS, THEM. 

480 DATALATER, YOU, WILL, THINK, OF, FIVE, NUM 
BERS, AND, I, WILL, TRY, TO, GUESS, THEM. 


490 DATAHIGHER,LOWER,THAT,IS,RIGHT!,IT,T 


oo, vou, ,TRIES. 

500 Da TA TOO, Bap. , IT, was, , ,YOU,GOT, „E 

RC ENT, CORRECT. , NOW | 

510 DATAENTER, THE, ,NUMBER,FROM,1 - 5.,M 

Y, GENIUS, OVERCOMES, ME. , I, WAS, WRONG. 

deg DATA I,GOT, ,PERCENT,CORRECT, PLAY, AG 
Y/N 


АИИ 
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530 DATAFIRST,SECOND,THIRD, FOURTH, FIFTH 
Alteration— Change the man's features (make 540 REM DRAW MAN 
him a woman?) by experimenting with the | 550 COLORO, 16: COLOR4, 6: GRAPHIC4, 1, 16 
graphic commands in lines 540-910. 560 COLOR 1, 1: COLORS, 1 | 

520 COLOR 2,7: COLORS3,13 

380 CIRCLE1,15,15,2, 2: PAINT1,15, 15. 

590 SSHAPE Ав, 10, 11, 21,31 

600 SPRSAV as, 1: MOVSPR1,134,98 

610 SCNCLR: CIRCLE1,60,40,12,20 

620 CIRCLE 1,66,37,3:CIRCLE 1,53,37,3 

630 CIRCLE 2,66,37,1: CIRCLE 2,53,37,1 

640 CIRCLE1,60,13,10,40,165,195,0,1 

650 DRAW1,59,52 TO 61,52 | 

660 PAINT 2,66,37:PAINT 2,53,37 | 

570 DRAW 1, 65, 23 TO 60,30 TO 50,30 TO 47 


680 PAINT 1,60,22 
é90 DRAW 1,58,40 TO 62,44 TO 62,46 TO 61 


700 DRAW 1,60,47 TO 59,47 TO 58,46 

710 CIRCLE 1,42,38,2,5,170,15 

720 CIRCLE 1,72,38,2,5,340,190 

730 DRAW 1,68,54 TO 71,60 

740 DRAW 1,49,54 TO 46,60 

750 DRAW 2,57,61 TO 61,61 TO 65,65 7062, 

&8 TO 67,79 TO 60,90 | 

760 DRAW 2,60,90 TO 52,80 TO 57,67 TOSS, 

66 TO 57,61 

770 PAINT 2,60,80 

780 DRAW 3,71,60 TO 76,60 TO 76,90 TO 73 
,90 TO 72,76 | 

790 DRAW 3,72,76 TO 71,90 TO 60,90 TOé7, 

79 TO 62,68 TO 65,65 TO 71,60 

800 PAINT 3,75,70 | 

810 DRAW 3,60,90 TO 52,80 TO 57,67 TO 55 
,66 TO 46,60 TO 37,60 | 

820 DRAW 3,37,60 TO 37,90 TO 40,90 TO 40 
‚25 TO 44,90 TO 60,90 

830 PAINT 3,48,70:DRAW 1,38,91 TO 38,92 

840 DRAW 1,75,91 TO 25,92 | 

850 DRAW 1,44,91 TO 70,91 TO 20,120 TO ó 

1,120 TO 61,110 TO 59,110 

860 DRAW 1, 59,110 TO 57,110 TO 57,120 T 

O 44,120 TO 44,91:PAINT 1,46,93 

870 DRAW 2, 47, 121 TO 48,121 TO 48,125 TO 
55,125 TO 58,130 

880 DRAW 2,58,130 TO 47,130 TO 47,121 

890 PAINT 2,48,128 

900 DRAW 2,62,121 TO 63,121 TO 43,125 TO 
70,125 TO 73,130 TO 62,130 TO 62,121 

910 PAINT 2, 63,128:RETURN 


a 
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Poetry 


Poetry 


The program creates haiku, an ancient form of Japanese poetry. The traditional form calls for three lines of 
five, seven and five syllables. The poems usually refer to seasonal changes and moods. Therefore, the phrases 
selected randomly by the program contain related vocabulary. The program can write some very nice haiku. 

The music was written in the traditional Japanese style of Koto. Music plays to introduce the game and 
repeats each time a haiku is created. | 


10 REM POETRY 

20 SCNCLR 

30 LET X=0 | 

40 LET X2X*1:1F X<2 THEN GOSUB 60 

50 GOTO 130 

60 TEMPO 12 | | 

70 PLAY "V104TA4USXO":REM V1=FLUTE 

80 A$-"V103 HAHAWB HAGBSAHB GAGFWE" 
90 BS="V103 GEGAGAHB GAGFGE O2GCWBOSR" 


100 PLAY AS PLAY BS 
110 RETURN 


Alteration— Change the second number in the 
COLOR statements of line 130 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 


Alteration— Eliminate the music before each 
haiku by changing line 290 to 290 PRINT. This 
drops the music ынны and inserts a blank 
line. 


Alteration— Change the phrases used to form 
the haiku by changing the DATA statements in 
lines 330-420. Be sure to give each new phrase 
the same number of syllables as the phrase it 
replaces. 


Poetry 


120 REM "POETRY" 

130 COLORO, 2: COLOR4,4 

140 FORX- отоо: READF (X) : NEXT:FORXZOTOZ:R 
EADSS$0UX):NEATA 

150 FORX=0TO7: READTS (xX) : МЕХТХ 

160 РРІМТ "ССК?" : РВІМТТАВ (17) "{RVON3 {GRY 
13POETRYtRVOF У" | 
170 PRINT"{C/DN3{C/DN}HELLO HONORABLE US 


180 PRINT"tC/DN2I AM MIKO, A JAPANESE HA 
IKU PROGRAM." 

190 PRINT"tC/DN3PRESS ANY KEY AND I WILL 
BE PLEASED TO WRITE A POEM FOR YOU." 
200 PRINT"{C/DN3HAIKU IS АМ ANCIENT FORM 

OF POETRY." 
210 PRINT"IT IS AN HONOR TO URITE FOR YO 


220 PRINT"{C/DN}HIT ANY KEY TO START." 


230 GETKEYGS 
240 A=INT(RND(8) X10): В=ІМТ (АМ (8) X8): G= S 
NT (RND (6) X8) | 
250 PRINT"CCLR2CC/DN3 CC/DN3 CC/DN3 CC/DN3 ( 
C/DN3t£C/DN324C/DN3CC/DN2". 

260 PRINTTAB(20- -LEN(FS(A))/2) FS 

270 PRINTTAB(20-LEN(S$(B))/2) ; 5% (В) 

280 РЕІМТТАВ (20-ЕМ (ТФ (C)) /2) $5 T$(C) 

290 GOSUB 60 | 

300 PRINT"t4C/DN3CC/DN3 CC/DN3 HIT (RVO 
N3R{RVGF} KEY TO RECEIVE А NEW POEM." 
310 GETKEYQS 

320 IFG$z"R"THEN240:ELSEPRINT"tC/DN3GOOD 
BYE.":END 

330 DATATHE GRAY MOUNTAINS HOST, TODAY I 
SAW THE, SPLASHES IN THE POND 

340 DATANOW CHERRY BLOSSOMS,DROPPING FRO 
M BRANCHES,FRESHLY DRAWN CHALK LINES 

350 DATAWINTER HILLSIDES HOST,NOW RED-FA 
CED CHILDREN,A MOONLIT QUIET 

360 DATAA GARDEN CHANGES, MOMENTARY FLASH 
ES OF, SQUIRREL GATHERING ACORNS 

370 DATADISTURB THE REFLECTION OF, SWIRL 
IN THE TWILIGHT COOLNESS 

380 DATARED LEAVES PROVIDE RAKE FODDER,R 
EFLECT IMAGINATION 

390 DATATHE LAUGHTER AND SNOWY PLAY,CATC 
H RAYS OF BROKEN MOONLIGHT 

400 DATATHE SUMMER LIGHTNING,WINTER IS C 
OMING,A MOONLIT GUIET,A GARDEN CHANGES 
410 DATAFUEL FOR CHILDREN'S PLAY,OF SUMM 
ER CHILDREN,OF RED-FACED CHILDREN 

420 DATASPLASHES IN THE FOND 
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No Free Lunch 


No Free Lunch 


Put on your thinking cap for this arithmetic game. You're out to lunch along the ocean and have to hop 
rocks across hazardous tidepools to reach your food. A correct answer to the arithmetic problem gets you to the 
next rock, closer to your lunch. With three correct answers іп a row, you can eat. But watch out! А wrong 


answer gets you all wet. 


Alteration—Try drawing an airplane or some 
Seagulls in the sky in lines 30-60. 


Programming Tip—The ESC-M sequence 
CHR$(27) " M !! in line 70 prevents the screen 
from scrolling after printing on the last line. 


Programming Note—To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 


Line 90 1,3,4, 1, 6, 3, 4, 2 


Line 100 1, 3, 3, 2, 5, 4, 3, 3, 3, 3, 4, 6 
Line 110 1, 4, 2, 2, 4, 5, 3, 3, 3, 4, 2, 7 
Line 120 1, 4, 2, 2, 4, 5, 3, 3, 3, 4,2, 7 
Line 130 40 

Line 140 13 

Line 160 2, 3 

Alteration—To practice multiplication 


instead of addition, change the addition signs 
(+) in lines 190-210 to asterisks (*). 
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10 REM NO FREE LUNCH | 
20 COLORO, 15: COLOR4,7:COLOR2,8: COLOR3, 16 
30 GRAPHIC4,1,8: CIRCLE2,30,32,20, 26: PAIN 
72, 30, 30 

40 CIRCLES, 80, 40,60, 5:PAINT3, 80,40 

50 CIRCLES, 120,30,55, 10:PAINTS, 120, 30 

60 CIRCLES, 0,20, 30,5:PAINT3, 0,20 | 
70 WIND0WO,8,39,23: PRINTCHRS$ (27) "M" :D$z" 
tHOME3£C/DN3CC/DN3 CC/DN3 (CV DNY (CV DN Y CC/D 
NY SC / DN): CLS C HOHE) CC/DN2 "+СНЕФ (27) + "9 
н 


80 PRINTTAB(34) "{C/DN3{£C/DN}{C/DN}{C/DN} 
CC/DN;2 CC/DNS CC/DN32 CC/DN3 CRVON3? CGRY 1 2LUNC 
H! 
90 PRINT"tRVON3CLBLU? {GRY1} — CLBLU? 
{GRY1} {LELU}? {GRY13 ВШ? { 
GRY1» «ІРІП? {GRY1} {LBLU} {GRY 1 
H {LBLU} "5 
100 PRINT" {RVON} {BLUE} CGRY13 
tGRY13 {BLUE} CGRY13 
GRY13 { BLUE 3 {GRY13 
12 (BLUE)X"; ` 
110 PRINT"{RVON} {BLUE} {GRY1}3 
{GRY1} {BLUE} (RV) 
GRY12 {BLUE} {GRY 13 
> {ВІЧЕ 5"; 
120 PRINT" {CRVON3{GRY13 
{BLUE} CGRY13 
{BLUE} {GRY13 
tBLUE3";. 
130 PRINT"£RVON3£GRY13 
| 8 


(BLUE? 
{BLUE}? { 
{BLUE > {GRY 


(BLUE? 
{BLUE > { 
{BLUE} {GRY1 


{BLUE} (GRY13 
{BLUE} {GRY1} 
{BLUE} (SRY) 


| $ 

140 PRINT"t£LBLU; {RVONS CBLK3 
NO FREE LUNCH{RVOF 3 {HOME} " 

150 U$Sz"CC/RT34UHT3O0CLC/DN3 CC/LF 3 CC/LF 2А 
RVON} tRVOF IN | 

160 ЕФ-" L1C/DN3(UC/LF3CC/LF? 
LF3t(C/LF3 " 

170 PzO:PRINTD$; TAB(P) USF "{C/DN3{C/LFFE 
C/LF 3H" 3 : PRINT" {НОМЕ 2" 

180 AINT (RND(1)X9*1) : B=INT(RND(1)#9+1) 
190 PRINTCLS"HOW MUCH IS"A"t*"B;; INPUTC 
200 IFA*B-ZCTHEN270O 


{C/DN} CC/ 


No Free Lunch 


210 PRINTCLS"SORRY, THE ANSWER IS"A+B 
| 220 PRINTD$; TAB(P) 3 ЕФ: Р=Р+3: PRINT DS; TAB ( 
Ру "CC/DN3CC/DN2 "US 
230 SOUND, 30000, 400, 1, 20000, 10, 3 
240 PRINTCLS"{RVON}{BLUE} SPLASH!!! 
" | 


250 V=15: DOWHILEV>.1:V=V-.1: VOL V:LOOP 
| | 260 БІЕЕРЗ:60Т0310 
А А i 270 PRINTCLS$"CYELO? {RVON} CORRECT! я 
V 280 SLEEP1:PRINTD$; TaB (P); ES: Р=Р+7: PRINT 
multicolor graphics on the top part of the DSS TAB(P) ОФ" СЛОМ СЛЕР CC/LF3H" 
Screen. 290 IFP«4S3STHEN180O 
300 PRINTCLS$S"CYELO3YUM! YUM! EAT WELL!!! 


310 PRINT"(C/DNJ£C/DN?TRY AGAIN (Y/N)?" 
320 GETKEYG$:IFG$-"Y'"THENPRINT"tCLR2": GO 
TOSO:ELSEIFG&4»"N"THEN320 

330 PRINTCHR$ (27) "LCHOME 3 C HOME ? " : GRAPHIC 
0,1:END | | ' 
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Spelling Bee 


Spelling Bee 


Here's an educational game of great versatility, providing entertainment and instruction. The program 
features a bee that moves across the screen to the sound of an adapted Flight of the Bumblebee. As the bee 
moves, it leaves behind it a scrambled word. The object is to unscramble the word and enter the correct spelling. 


10 REM SPELLING BEE 
20 SCNCLR 
30 X-O:LET X=X+1:IF X42 THEN GOSUB 50 
40 GOTO 190 
50 TEMPO 18 
Alteration— Change the number following T 60 PLAY. "V104T7US8XO" : REM V1=ORGAN 
in line 60 to a value from 1 to 9 to change the | 70 AS="V1O05SESHDSDSHCSCSDSHCSCO4SB" 
instrument that plays music. For example, | 80 BS="V105SCO4SBSSBSDSHGSGSHF SF" 
60 Orhan e REM V! = | o6 ceH="V104SESHDSDSHCSDSHCSCO3SB" 
| | 100 D$-"V1048COSSBSHASASHGSGSHFSF " 
110 ES="V103SESHDSDSHCSDSHCSCO2SB" 
120 F$-'V1038ESHDSDSHCSCSFSSESHD" 
130 GS="V1OSSESHDSDSHCSCSHCSDSHD" 
140 H$="V102B" 
150 PLAY as: PLAY B$:PLAY cs: PLAY D$ 
140 PLAY ES:PLAY Es: PLAY FS:PLAY G$ 
170 PLAY F$:PLAY G$:PLAY ES:PLAY H$ 
180 RETURN 
190 Wz30:DIMW$(W) ,Z(W) : X-RND (0) 
200 COLOR4, 7: COLORO, 1: PRINT" {CLR} {CYAN} 
C/DN? 
210 PRINT"WELCOME TO SPELLING BEE." 
220 PRINT"{C/DN}YOU WILL SEE THE BEE FLY 
ACROSS THE" 
230 PRINT"SCREEN, LEAVING LETTERS AS IT 
GOES. " 
240 PRINT"{C/DN}THESE LETTERS ARE THE LE 
TTERS OF A" 
250 PRINT"SCRAMBLED WORD. YOU MUST UNSCR 
AMBLE THE" 
260 PRINT"WORD AND ENTER THE CORRECT SPE 
LLING TO":PRINT"RECEIVE POINTS." 
270 PRINT"tC/DN3(C/DN3G600D LUCK... HIT А 
NY KEY TO CONTINUE. ":GETKEYGS 
280 GOSUB670 
290 FORX=1 TOW: READ (X) : NEXT 
300 FORX-1TOW:Z(X)zX:NEXT 
310 Z=W:FORX=0TO9 
320 R=INT(RND(1)%Z+1):S(X)=Z(R) 
330 2(Б)-2(2):2-2-1:МЕХТ 
340 FORX=0TO? | 
350 PRINT"CCLR)WORD"X*1,"SCORE ="SC 
360 L=LEN(WS(S(X))) : IFL210THENPRINTUS (S 
X))"IS TOO LONG OF A WORD.":END 
320 FORY-1TOL:Z(Y)sY:NEXT 
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Spelling Bee 


Alteration—Change the number of words in 
the game by adding more words in DATA state- 
ments between lines 650 and 660. Be sure to 
increase the value of W in line 190 to reflect the 

new total number of words in the vocabulary. 


Alteration—Make the bumblebee appear 
smaller and in higher resolution by leaving off 
the last two 1’s in line 820, i. e., 820 
SCNCLR: SPRITE 1,0,8,0 


For fun, try these other versions of line 820: 
820 SCNCLR:SPRITE 1,0,8,0,0,1 
820 SCNCLR:SPRITE 1,0,8,0,1,0 | 
820 SCNCLR:SPRITE 1,0,7,0 


380 Z=L:FORY= 1TOL 

390 R=INT(RND(1)%Z+1) 2LCY) SZ (В) 

400 2(К)-2(2):2-2-1:МЕХТ 

410 GOSUB 50 

420 SPRITE1,1:MOVSPR1,90 H2 

430 FORY=1TOL 

440 DOUNTILRSPPOS (1, 0) >50+24%Ү: LOOP 

450 CHAR1,4*3XY,11, MID$($(S00), LCY),1) 
460 NEXT 

470 IFRSPPOS (1, 0) »320THENSPRITE1,0:; MOVSP 


. R1,0,117: ELSE470 


480 INPUT"CtHOME3CC/DN3CC/DN3CC/DNXCC/DN? 
ENTER CORRECT SPELLING";C$:PRINT | 
490 IFCS$-W$(S(X) ) THENPRINTTAB(13) "CRVON2 
THAT IS CORRECT! ":SC=SC+125:GOTOS10 | 
500 РКІМТТАВ (10) "{RVON}SORRY, IT WAS "WS 
SX) ) " 

510 SLEEP: MEN Tx 

520 PRINT"{CLR}{C/DN}" 

530 IFSC>9OOTHENPRINT"YOU WIN THE SPELLI 
NG BEE!":G0T0570 

540 IFSC>SOOTHENPRINT"VERY WELL DON. ": 
0TO570 | 

550 IFSC»700THENPRINT"NOT BAD.":GOTOS70 
560 PRINT"YOU NEED PRACTICE." 

570 PRINT"PLAY AGAIN (Y/N)?" 

580 GETKEYGS$:IFGS$-"Y"THEN3OO 


590 IFQS< > "М"ТНЕМ580: ELSEEND 


600 DATA THAT, THEIR, HOUSE, BOAT, PEACE 
610 DATA DRAGON, ORANGE, GAME, LOVE, HOPE 
620 DATA WHEN, FLY, BEGIN, COMPUTER, BOOK 
230 DATA YELLOW, HORSE, CHILD, FATHER, PEN 
640 DATA PLANT, PICTURE, LIGHT, RUG, HELP 
650 DATA SPELL, CUP, PENCIL, SHOE, SHIRT 
660 REM BEE 

670 COLOR1,4:GRAPHIC1,1 

680 B0X0,1,2,2,45,45 


690 DRAW 1,11,19T025,11 TO25,26 TO11,19 


700 DRAW 1,13,17 Т013,20 

710 DRAW 1,17,15 TO 17,22 

720 DRAW 1,21,13 TO 21,24 

730 DRAW 1,25,26 TO 31,22 TO 25,22 
240 CIRCLE1,29,14,6:PAINT1, 14,18 
750 PAINT 1,21,22:DRAW1,27,13 

760 DRAW1,31,13:DRAW1,29,17 TO 32,17 
770 DRAW 1,34,13 TO 33,18 

780 DRAW1,24,7 TO 27,10 

790 DRAW1,34,7 TO 31,10 

800 CIRCLE 1,20, 14,3 

810 SSHAPE А%,11,2,34,28:5РВ5АУ” asi 
820 SCNCLR: SPRITE1, 0,8,0,1,1 

830 MOVSPR1,0,117:GRAPHICO, 1: RETURN 
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Speed Reading 


Speed Reading 


A fundamental principle of speed reading is that we retain more if we read words in phrases, rather than 
one at a time. This program helps develop that skill. It flashes phrases quickly then tests retention of the | 
information with true/false questions. 

Two players are needed. When prompted by the computer, player 1 types in five statements and five related 
true/false questions along with the answer. Then player 2 decides on the time duration he'll see each phrase. 
Time can be as short as 1 second. After the phrases are flashed, player 2 is tested with the questions. Score is 
based on correct answers and the time the player had to read questions. 

Then the players change roles and player 2 does the speed-reading test. 


10 REM SPEED READING 

20 Gz5:DIMP$(2,0),0$(2,0),A5$(2,G) 

30 COLORO,7:COLOR1,2:COLOR4,13 

40 PRINT" {CLRS t£UHT2"TAB(14) " CRVON? SPEED 
READING" . 

50 PRINT"CC/DNJWELCOME TO THE GAME OF SP 
EED AND" s 

60 PRINT"CONCENTRATION. " 

20 PRINT"{C/DN? YOU MUST BE ABLE TO GRASP 
WHOLE" 


M Y 
/ ғ 
МА 
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Speed Reading 


Alteration—Change the game into an 
arithmetic flashcard game. Enter math pro- 
blems and answers instead of sentences. 
Change appropriate PRINT statements if you do 
this. 


Alteration— Change the game into a transla- 
tion exercise. Use foreign and English equiv- 
alents instead of sentences. Change appropriate 
PRINT statements if you do this. 


 Alteration—If you prefer to run this game іп 
the 80-column mode (assuming you have a 
monitor that can do it) alter the PRINT state- 
ments of lines 350 and 390 to say (80 
CHARACTERS) instead of (40 CHARACT- 
ERS). In addition, change the 40 in lines 370 
and 410 to 80. Rearrange PRINT statements in 
the program to make the game use more of the 


screen. Be sure to enter the game in the 80- 


column mode. 


80 PRINT"PHRASES IN А MOMENT. AFTER THE 

PHRASES" 

90 PRINT"ARE DISPLAYED, THERE WILL BE GU 
ESTIONS" mE 

100 PRINT"ABOUT THE CONTENT. CORRECT ANS 

WERS" | 
110 PRINT"SCORE POINTS.":PRINT"THE MORE 

DIFFICULT THE TIME FACTOR, THE" 

120 PRINT"MORE POINTS EARNED. ":PRINT"{C/ 
DN}ONE PLAYER ENTERS FIVE PHRASES, FIVE" 
130 PRINT"SUESTIONS, AND THE FIVE ANSWER 
5," 


140 PRINT"THE SECOND PLAYER ENTERS THE T 


IME" 

150 PRINT"FACTOR BY ENTERING THE NUMBER 

OF" 

160 PRINT"SECONDS FOR WHICH THE PHRASES 

ARE":PRINT"TO BE DISPLAYED." - 

170 PRINT"{C/DN}HIT ANY KEY FOR MORE INS 

TRUCTIONS. " 

180 ӨЕТКЕҮӨФ. 

190 PRINT"{CLR}ALL FIVE PHRASES WILL BE 

SHOWN AND THEN" 

200 PRINT"ALL FIVE QUESTIONS WILL BE ASK 

ED. " 

210 PRINT"{C/DN}THEN THE SECOND PLAYER W 
ILL HAVE A TURN." 

220 PRINT"ALL QUESTIONS WILL BE TRUE OR 

FALSE" 

230 PRINT"GUESTIONS. TRUE WILL BE INDICA 

TED BY А" 

240 PRINT"T AND FALSE WILL BE INDICATED 

BY AN F." 

250 PRINT"{C/DN}HERE IS AN EXAMPLE: " 

260 PRINT"{C/DN}{RVON}PHRASE: {RVOF} THIS 
IS А COMPUTER GAME. " 

270 PRINT"{C/DN}{RVON}QUESTION: {RVOF} T 

OR F":PRINT"THIS IS А CARD GAME." 

280 PRINT"{C/DN}{RVON}ANSWER: CRVOF? Е" 

290 PRINT"{C/DN}HIT ANY KEY TO START." 

800 GETKEYGS$:P-1 

310 INPUT"{CLR}{C/DN}PLAYER ONE'S NAME"; 

NS (1) 

320 INPUT"{C/DN3PLAYER TWO'S NAME";N$(2) 

330 PRINT"{CLR}BEGIN NOW Ns (P) ". " 

340 FORX=1T0Q:PRINT"{C/DN3ENTER PHRASE # 
пу 

350 PRINT"(tC/DN3PHRASES MAY NOT BE MORE 

THAN 1 LINE LONG":PRINT" (40 CHARACTERS). 

{C/DN}" 

360 INPUTPS(P,X) 

370 IFLEN(PS(P,X)) >40THENSSO MORE — 
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Speed Reading 


30 


380 PRINT”{C/DN ENTER QUESTION HUN 

390 PRINT"{C/DN}QUESTIONS MAY NOT BE MOR 

: THAN 1 LINE":;PRINT"LONG (40 CHARACTERS 
. tC/DN32" 

ie ІМРОТОФ (Р, Я) | 

410 IFLEN(GS(P, X) ) »40THEN350 

420 PRINT" {C/DN3ENTER ANSWER #"X 

430 INPUTAS(P, X) 

440 ІРАФ(Р, х) < У "Т"АМрАФ(Р,Х) <¢>"F"THENPRI 

MT"ANSWER MUST BE T OR F.":GOTO430 

450 РКІМТ"ІСІН?" : МЕХТХ 

460 К-1:ІҒР-1ТНЕМК-2 

470 PRINT"OK NS (K)“. "SPRINT 

480 W(K)20:8(K020 ` | 

490 PRINT"ENTER THE NUMBER OF SECONDS EA 

CH PHRASE" 

500 INPUT"WILL BE SHOWN";S: IFS»10THENPRI 

NT"TOO LONG!":GOTO490 

510 FORX-S1TOG:PRINT"CCLR3 CRVON2PHRASE #" 

A:PRINT"4C/DN3 £C/DN3"P$(P,X) 

520 715 000000 

530 CHARI, 17,0, RIGHTS (TI, 2) +" SEC":IFVA 

L (TIS) <STHEN5S30 

540 PRINT"CCLR3":SLEEP2:NEXTX 

550 FORX=1TOS: PRINT" {CLR3{RVON} QUESTION 

#{RVOF3"X 

560 PRINT" {C/DN} {C/DN}"QS(P, &) 

570 INFUT"{C/DN}YOUR ANSWE "АФ: AS=LEFTS 

(AS, 1) 

880 IFAS4 "T" ANDAS< >"F" THENPRINT"{C/DN3T 

HESE ARE T OR F QUESTIONS.":GOTO570 

390 IFAS-AS(OUP,X)THENS(GOC) =5 (К) +700-S: PRIN 

T"{C/DN3 CRVONFCORRECT" 2 65070620 

600 УСК) =W(K) £1: PRINT" CC/DN3 {RVON} INCORR 

ЕСТ":РКІМТРФІР, Ж) | 

610 SLEEP2Z:NEATA 

620 SLEEP2:NEXTX 

630 IFPZITHENP-22:GOTO330 | 

640 PRINT"t4CLR34)C/DN324C/DN2"N$(1)" SCORE 

275(1),9-W(1) "CORRECT" 


| 650 PRINT"{C/DN3}{C/DN}"NS(2)" SCORE: "5 (2 


)  5-W (2) "CORRECT" 

660 IFS(1)>S(2) THENPRINT"CC/DN3CC/DN3 "NS 
(1)" WINS!" 

670 IFS(2)>S(1) THENPRINT"{C/DN3{C/DN3 "NS 
(2)" WINS!" 


Pre-School Counter 


Pre-School Counter 


Here's a useful educational game that helps young children learn counting up to 10. It's also good for 
introducing a computer to the child. It's easy to run and play. | 
The computer greets the player and then asks him to count the squares displayed. The user answers by 
entering a number. The computer then responds. If the answer is correct, the user is rewarded with a smiling 
face drawn by the computer. If the answer is incorrect, the face's smile becomes a frown. The correct answer is 
then displayed. | 
After 10 exercises, the computer gives a score. 


10 REM PRE-SCHOOL COUNTER 
20 COLOR1,2:COLORO, 13: COLOR4,6 
Programming Tip— The program uses a split 30 GRAPHIC2,1:CIRCLE1,160,84,27,5 
screen. GRAPHIC 2,1 in line 30 sets the 40 55НАРЕ OP#,130,75,189,95 
split-screen mode and PRINT CHRS(27)"T" | sq SCNCLRI:CIRCLE1,160,83,27,2. 
in line 180 sets the new top of screen at row 19. 60 SSHAPE CL$,130,75,189,95 
70 SCNCLR1:CIRCLE1,160,8,90,75,158,202 
80 CIRCLE1,160,44,50,45,140,220 
ОО SSHAPE SM$,130,75,189,95 
100 SCNCLR1:CIRCLE1,160,159,90,75,338,38 


2 | 
MORE — 


aL». 
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Pre-School Counter 


Alteration—The face is drawn by lines 
130-160. Add more graphic commands to give 
the face more features. Be careful to not draw 
over the area where the mouth goes. 


Alteration—Use higher numbers by changing 
line 220 to 220 SQ = INT(RND(1)*25) + 1: etc. 


Programming Note—Make the graphic 
character in line 220 by typing SHIFT-Q. 
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110 CIRCLE1,160,123,50,45,320,400 

120 SSHAPE FR$,130,75,189,95 

130 SCNCLR1:CIRCLE1, 160,60,50,50 

140 CIRCLE, 180, 48, 10,5: CIRCLE1,180,45,2 
,2 | 

150 CIRCLE1,140,45,10,5: CIRCLE1,140,45,2 
2 

3 

160 CIRCLE1,160,62,7,7 

170 GSHAPE CL$,130,75 

180 PRINT"CCLR3CUHT2":FORXS1TO18:PRINT:N 


 ЕХТЕРКІМТСНЕФ (27) "Т" 


190 C20:FORG-1TO10 
200 FORX=1TO3: GOSUB370: READT$:PRINTT$" * 


9 

210 50508380: МЕХТХ 

220 59=ІМТ (ЕМ (1) #10) +1: FORYZ1TOSG: CHARI 
,1*2XY,16," 8" : NEXT 

230 INPUTA: IFA«»SGTHEN250 

240 С=С+1:РВІМТ" {RVON}CORRECT! ! CRVOF 2": 
GOSUB400: SLEEP2: GOTO270 

250 PRINT" {RVON} INCORRECT{RVOF}":GOSUBS 
90: SLEEP2: GOSUB380 

260 PRINT" THE ANSWER IS"SQ:SLEEP3 

270 GOSUBSSO:PRINT"tCLR3":RESTORE:CHARi1, 
3,16," 205 "SNEXTG 

280 GOSUB370:PRINT" OUT OF TEN TRIES,": 
LEEP1 

290 GOSUB380 

300 GOSUB370:PRINT"YOU GOT" 

310 60508380 

320 GOSUB370:PRINTC"RIGHT. " 

330 60508380 

340 PRINT"{C/DN}PLAY AGAIN (Y/N)?" 

350 GETKEYQS#: IFG "THENRUN: ELSEIF@S< >" 
N" THENS50 

360 END 

370 GSHAPE OPS, 130,75: RETURN 

380 GSHAPE CL$,130,75:RETURN 

390 GSHAPE FR$,130,75:RETURN 

400 GSHAPE SM$,130,75:RETURN 

410 DATAHOW, MANY , CIRCLES 


Keyboard Shooting Gallery 


Keyboard Shooting Gallery | 


This game improves keyboard skills. You're at a carnival shooting gallery containing four animal targets. 

In each target a letter appears for a short time. You score points by typing letters displayed in the animals. 

The game has three levels of difficulty, so as you become a better typist, you can make the game more 
challenging. At the expert level, “hunt-and-peck” typists will have trouble scoring well. 


Alteration—To include other keyboard 
symbols (such as numbers, commas, periods, 
. etc.), make these changes: 

20 DIM A$(55): GOSUB 330 

30 FOR X=0 TO 55: AS(X) = CHR$ (X 35): 
NEXT 

160 FOR Y=1 TO 4: F(Y) 30: L$(Y) = A$ 
(RND(1)*56) : NEXT 


10 REM KEYBOARD SHOOTING GALLERY 
20 DIHas (25): 605068330 | 
30 FORX=0T025: AS (X) =CHRS(X+65) МЕХТЯ 
40 PRINT*"£CLROX€GRN2UWELCOME TO {RVON}KEYB 
GARD SHOOTING GALLERY{RVOF}.” 
50 PRINT"{C/DN}LETTERS WILL APPEAR BELOW 
EACH ANIMAL." | 
60 PRINT"YOU WILL HAVE А SHORT TIME ТО E 
NTER" 
70 PRINT"THE SAME LETTERS." 
80 PRINT"{C/DN}SIMPLY TOUCH THE CORRECT 
LETTERS TO":PRINT"GET POINTS." 
90 PRINT"{C/DN}1) EASY":PRINT"2) HARD";P 
RINT"3) EXPERT" 
| MORE — 
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Keyboard Shooting Gallery 


Alteration—To make your own carnival 


animals, experiment with the graphic. 


commands between lines 320 and 830. Or, use 
animals from other games, for example the 
dogs from A Day At The Races. 


100 INPUT"CC/DNJENTER 1,2 OR 3";L 

110 IFL<10RL>3THEN9O 

120 PRINT"4CLR3":FORXS1TO4:SPRITEX, 1: МЕХ 
T | 
130 CHAR1,6,2,"BEE": CHAR1,23,7, "FISH" 
140 CHAR1,6, 13, "OWL" :CHAR1, 23,13, "DOG" 
150 T220-LX5:X-0 

160 FORY=1TO4:F (Y)=O:LS(Y) SAS(RND (1) X26) 
: NEXT 

170 СНАК1,10,9,1%(1):СНАВ1,28,9,1%(2) 
180 CHAR1,10,15,L$(3) :CHAR1, 28, 15,L%(4) 
190 I=0:C=0 

200 CHARI, 14,0, "SCORE ="+STRS(S), 1 

210 GETKEYGS 

220 FORY-1TO4: IFG&-L$ (Y) АМЕ (Y) -OTHENS- S 
+1O:C=C+1:F(Y)=1 —— 

230 IFC=4THENI=T: Y=4 

240 NEXTY 


250 ISI*1: IFIXTTHEN2OO 


260 X2Xt*1:IFX«X10THEN160 


270 FORX=1T04: SPRITEX,O: NEXT 


280 PRINT"{CLR}"TAB(15) "{RVON}GAME OVER. 


290 PRINTTAB(16) "CRVON2CC/DN2CC/DN2 YOU W 
IN." 

300 PRINTTAB(13) "{RVON3}{C/DN}{C/DN}FINAL 
SCORE: {RVOF}"S 

310 END 

320 REM DRAW FISH 

330 COLOR 0,2:COLOR4,5:GRAPHICI,1 

340 CIRCLE 1,26,19,5,6:PAINT1, 26,17 

350 CIRCLE 1,25,20,5,5,210,310 | 
360 PAINT 1,21,19 

370 DRAW 1,22, 24 TO 16,23 TO 19,29 TO 22 
‚24 

380 DRAW 1,22,16 TO 19,16:DRAW 1,20,17 T 
0 18,17:DRAW 1,17,18 

390 PAINT 1,20,26:DRAW1,18,23 TO 24,23 
400 DRAW 0,30, 22: CIRCLEO, 26, 17,1 

410 SSHAPE BS, 11, 10, 34, 31: SPRSAVBS, 2 

420 SCNCLR:REM DRAW DOG 

430 DRAW 1,25,11 TO 29,15 TO 33,15 

440 DRAW 1,32,15 TO 32,17 TO 31,18 TO 29 
,18 TO 28,19 | 

450 DRAW 1,29,20 TO 30,20:DRAW 1,26,27 
460 DRAW 1,27,18 TO 27,21 TO 26,23 TO 25 
,23 TO 25,27 

470 DRAW 1,24,27 TO 23,27 TO 23,24 TO22, 
23 TO 22,21 | 

480 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 
,25 TO 16,27 TO 17,27 
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Keyboard Shooting Gallery 


Alteration—To double the size of each 
animal, add ,0,1,1 to the end of each SPRITE 
command in lines 800 to 830. For example, 800 
SPRITE 4,0,7,0,1,1: etc. If you do this, you 
should also change the CHAR statements in 
lines 130, 140, 170 and 180 to center the letters 
under the enlarged sprites. For example, 130 
CHAR 1,8,7, % ВЕЕ I: etc. 


600 


DRAW 1,15,27 TO 14,27 TO 14,22 TO 12 
TO 12, 18 TO 14,16 

DRAW 1, 15,16 TO 23,16 TO 25,11 

DRAW 1,12,13 TO 11,14 TO 11,16 TO 14 


PAINT 1,26,17:DRAWO, 28,15 

SSHAPE CS, 11, 10, 34, 31: SPRSAVU СФ, 1 
SCNCLR:REM DRAW OWL 

CIRCLE 1,20,19,8:PAINT1,20,19 

CIRCLE 0,16,17,2:CIRCLEO, 23, 17,2 
DRAW 0,18,19 TO 22,19 TO 20, 22 TO 19 


‘DRAW 1,14, 24 TO 16,28 TO 24,28 TO 26 


DRAW 1,14,28 TO 26, 28 
DRAW 1,14,24 TO 12, 27: DRAU 1,26,24 B 


О 28,27 


610 


DRAW 1,14,14 TO 12,12:DRAW 1,26, 14 T 


Ü 28,12 


620 
630 
640 
650 


SSHAPE A$, 11.10, 34, 31: 'SPRSAV АФ, З 
SCNCLR 

REM BEE 

B0X0,1,2,2,45,45 

DRAW 1,11,197025,11 7025, 26 TO11,19 
DRAW 1,13,17 Т013,20 

DRAW 1,17,15 TO 17,22 

DRAW 1,21,13 TO 21,24 

DRAW 1,25,26 TO 31,22 TO 25,22 
CIRCLE1, 29, 14, 6: PAIN TI, 14, 18 
PAINT 1521 22: DPRAU1, 27,13 
DRAW1, 31, 13: DRA, 29, 17 TO 32,17 


DRA, 24, 7 TO 22,10 

DRAW1,34,7 TO 31,10 

CIRCLE 1, 20, 14, 3 

SSHAPE DS, 11, 7, 34, 28: SPR SAU D$,4 
GRAPHIC O, 1 
SPRITE4, O, 7: Ho RA, 100, 100 
ӨРБІТЕ 3,0,11:MOVSPR3, 100, 150 
SPRITE2,0,4: MOVSPR2,240,100 | 
SPRITE1,0,12:MOVSPR1,240,150 


RETURN 
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Translator 


Translator 


This program is an educational quiz. As is, the program is set up to act as a Spanish-language translator. 
The user picks the number of questions to be asked. An English Word is shown and the user is asked to type in 
the Spanish equivalent. 
Correct and incorrect answers are indicated. When the answer is incorrect, the correct word is displayed. 
When all questions have been asked, the computer displays the user's score. 
This game is written for the 80-column mode of the Commodore 128. It’s easiest to enter the program into the 
computer if you first do the following: 
1) Put the computer in the 80-column mode by depressing the 40/80 Display Button, setting your monitor to 
RGB mode, and then turning on the computer. 
2) In the direct mode, type PRINT CHR$(14) and press the RETURN key. This puts the computer in the 
upper-case/lower-case mode. 
10 rem translator 
20 print сһғ%(14) 
20 dim e$(10),0$(10) 
^40^forx-1toiO0:reade&(x) ,o$(x) next 


ASKS, “ WHATS 
Fo DINNER, 
BUB?” 


ORIS 


` 
NC 
A 
AC 
+ x 
LS 
xt 
2 
2 
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Translator 


Alteration—Change the Spanish to any other 
language using the Latin alphabet. Change the 
vocabulary in the DATA statements of lines 
290-300. 


Alteration—Enlarge the computer's vocab- 
ulary by adding more DATA statements after 
line 300. Each English word must be followed 
by a comma and its foreign translation. You 
will also need to change lines 30 and 40 to 
accommodate the addition. For example, if you 
have 50 words, change the DIM statements in 
line 30 to dime$ (50),0$(50). Change the max- 
imum value of x in line 40 to that same number 
of words: for x=1 to 50. It is possible to add 
several thousand words to a Commodore 128. 


50 print"iCLR3;" 

60 print"Welcome to the Cybernetic schoo 
1 of computerized language." 

70 print"I am Amanda, a spelling and tra 


nslation program." 


80 print"I will assist you in learning 5 
panish today." 

90 input"tC/DNJWhat is your кане ана ак 
nt“ (CLR | | 
100 print"All right "j;n$;", we shall beg 
in by discussing the rules." 

110 print"{C/DN31) Whenever you are aske 
d for an answer, please type one in." | 
120 print"tC/DN32) Whenever you type а ғ 
esponse, you must enter it by pressing К 
ETURN. " | 

130 print"tC/DN33) I will tell you to gi 
ve the correct Spanish for a word." - 


140 print" Type in your answer and pre 
ss RETURN." 
150 print" When the game is over I wil 


1 say how well you did over all." 

160 input"tC/DN2How many questions shall 
I ask you“; q 

170 s-O:forcsitoq:print"iCLR3Guestion H8" 


C 
180 xzintí(rnd(1)X10)*1:print"Give the co 
егесі Spanish for: "еф(х) CC DN)“; inputa 
S 


170 ifa$-o$ix)thenssstl: RR 


ect":goto210 | 

200 ен ог nni. со 

rrect translation is: "оф (х) 

210 print"tC/DN3Press RETURN for the nex 

t question." 

220 getkeyq#: if qs (Chr (13) then220 

250 next 

240 print"CCLR2"n$", Out of "q"questions 

you got"s"right: that's"; 

250 printint (s¥100/q+t.5) "percent." 

260 print"{C/DN3}Would you like to play a 

gain (y/n)?" 

270 getkeygS: ifqs="y"thenrun: elseifgqs< >" 
n"then270 

280 print"{C/DN} Thanks for playing!" 

290 datato do,hacer,to talk,hablar,to pu 

t,poner,to eat, comer 

300 datadoor, puerta, mouth, Боса, cow, vac a, 

fork, tenedor, spoon, cuchara, peace, paz 
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Shell Game 


Shell Game 


In this game, the computer will place a ball under one of three boxes. Then it shuffles the boxes around the 
screen. Watch carefully because you're asked to find the box that has the ball. 


Alteration—This program is a treat for the 

eyes. Make it a treat for the ears by adding lines 
. of music near line 170. Carnival sounds might 
. Work well. 


Programming Note—The blank part of line 
180 is equal to 21 spaces. 


— 


Pe 
090000,6 
5222222 


0966 
т 


Д 


100 REM SHELL GAME 
105 COLOR4,6:COLORO, 16 

110 GOSUB450 

120 PRINT"{CLR}"TAB(15) "€{RVON}SHELL GAME 
tRVOF >" | | 

130 FORX=7TO9:FORY=1TO3:PRINTLS(X) 3S8(Y) 
: NEXTY ,X 

140 LSINT(RND(8)X3) +1 

150 PRINTLS(L);B$ 

160 PRINT"CBLK3CHOME3£C/DN2CC/DN2HIT ANY 
KEY TO START" 

170 GETKEYQ$ 

180 PRINT" {HOME}{C/DN3{C/DN} 


| 


% 
4 
— 


9 


> 
` 


ИГ 
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! Programming Note— Make the graphic char- 
acter in lines 470 and 560 by typing SHIFT-Q. 


Alteration—If you are an advanced pro- 
grammer, try replacing the red boxes (lines 


530-550) with walnut shells by using DRAW ` 


statements and saving the shape to a string with 
the SSHAPE command. Place them on the 
screen with the GSHAPE command. 


Shell Game 


190 FORX=7TO?: FORY=1TOS: PRINTLS (X)  ЕФ(Ү) 
NEX TY, X | 

200 FORX- 1703: FORY21TOS: PRINTL$ (X); Su) 
: NEXTY, X 


210 FORX=1T03: W(X) =1: МЕХТХ: М=і 


220 FORK=1TO9: CO: ІРЫ (К) “ОТНЕМ290 

230 HzINT(RND(4)X4) +1: C2C*1; ІЕС>ФТНЕМ290 
240 М=А(К, Н) : IFWCA(GG,H) ) SATHEN230 

290 ЮК) 0: WLACK, ТЕРІ 

260 FORY=1TO3S:PRINTLS(K) 3ES CY) : NEXTY 

270 ҒОКҮ-1Т03:РКІМТІ.Ф(А(К,Н))5%(Ұ) : МЕХТ 


280 IFL=KTHENL=A(K,H) 

290 MEX TK: M=M+1 

300 IFM«49THEN220 

310 IFW(1)=1ANDW (2) =1ANDW (3) Z 3THEN330 
320 GOTO220 

330 FORXSITOS:PRINTL$(€X) 5 "€RVON} "3 STRS(X 
) : NEXTX 

340 PRINT"CBLK32CHOME32CC/DN3 CC/DN3 OK, WHI 
CH BOX IS THE BALL UNDER?" 

350 GETKEYGS: IFQ$<"1"ORQ$>"3" THENSSO 

360 G=VAL (6%) 

370 IFG-LTHENPRINT"YOU GOT IT!":GOTO390 
380 PRINT"tC/DN3SORRY, IT WAS UNDER #"L 

390 FORA=1TO3: FORY=1TO3: PRINTLS (X) EE (Y) 
; NEXTY, X 

400 FORX-4TO6: FORY-1TOS:PRINTLS$(X):38S$(Y) | 
с NEXTY, X | 

410 PRINTLS(L) $ BS 

420 PRINT" {C/DN3PLAY AGAIN (Ү/М) 2": СЕТКЕ 
YAS: IFGSz"Y"THEN120 

440 END 

450 PRINT" {CLRICBLK3YOU ARE ABOUT TO PLA 
Y {RVON}SHELL GAMEtCRVOF >. " 

470 PRINT"I WILL PLACE A BALL (8) UNDER 
ONE OF" 

480 PRINT"THREE RED BOXES AND THEN SHUFF 
LE THE" 

490 PRINT"BOXES AROUND." 

300 PRINT"{C/DNIWATCH CAREFULLY AND THEN 
TELL ME WHICH BOX THE BALL IS UNDER." 
iie PRINT“ CC DNIYHIT ANY KEY TO CONTINUE. 


520 GETKEYGS 
530 S#(1)="{RED? tRVONJ (RVOF3";ES(1)z 
540 5$(2) =" CC/DN3CRED3£RVON? {RVOF32 "IE 
$(2)="{C/DN} " 
550 SS(S)="{C/DNI{C/DNS {REDS {RVONS (FV P 
OF} "ES(3)="{C/DNI{C/DN} п 

MORE — 
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Shell Game 


560 B$-"OBLUE3CC/DN3CC/RT32 a" 

970 L$(1)2"tHOME3(C/DN3£C/DN3 CC/DN? €C/DN 
3CC/DN3CC/DN3 CC/DN32CC/DNO CC/DN3 CC/DN3CC/ 
DN3£C/DN3CC/RTO2CC/RT3U4)C/RT3 СЛЕТ CC/RT JC 
C/RT3CC/RT3 СЛЕТ CC/RT3CC/RTICC/RT3C£C/RT 
3" 

580 L$(2)2L$(1) *" CC/RT3CC/RT3COCC/RT3C£C/RT 
J(C/RT3CC/RT?" | | 

990 L$(3)L$(2) *"CC/RT3CC/RTO2 CC/RT3CC/RT 
J€C/RT3CC/RTÀ3" 

500 L$(d)2L$((1) *" CC/DN2CC/DN3CC/DN2 CC/DN 
JCC/DN3C€C/DN3" 

610 L$(5)-L$(2) *"CLC/DN3CC/DN3 CC/DN2 CC/DN 
3CC/DN3C€C/DN3" 

620 1% (5) =1%(3) T CC/DN32CCC/DN3 CC/DN3 CC/DN 
3t0C/DN3C€C/DN3" 

630 L$(7)-2L$(1)4-"CC/UP3CC/UP3 CC/UP3 CC/UP 
JCC/UPSCC/UP 3" 

640 L$(8)-2L$(t2) +" CC/UP3CC/UPJCC/UP3 CC/UP 
Jt(C/UPSCC/UP 3" 

650 L$(9)2L$(S3) *" CC/UPS3CC/UPSJCC/UPS CC/UP 
J(C/UP3CC/UP 3" 

660 FORX-1TO9;FORYZITOA: READA (X, Y) : NEXTY 
SA | | 
670 RETURN 

680 DATA2,4,7,1,1,3,5,8,2,6,9,3 

690 DATA1,4,5,4,4,2,6,5,5,3,6,6Ó6 

700 DATA1,7,8,7,7,2,9,8,8,9,3,9 


Pirates 


Pirates 


Batten down your hatches and head for the high seas. Can you recover the gold stolen by the pirate 
Redbeard? You must search for five pirate ships hidden in the waters displayed on the screen. When you find a 
pirate ship, you can either fire on it or board it. In the ensuing battle you may lose men and cannons. 

The game ends after three minutes or after you or all five pirate ships are sunk. The galleons are the nicest 
sprites used in these 35 games. 


10 REM PIRATES 

20 GOSUBSSO 

ЗО PRINT" {CLR3{BLUE}AHOY THERE MATEY. AN 
D WHAT WOULD BE" 

40 INPUT" YOUR NAME NOW"; NS 

50 PRINT"i4C/DN3UELL, WELL, CAPTAIN "N$" 
IT IS..." 

60 PRINT"AND I BE CAPTAIN REDBEARD. * 

70 PRINT"t(C/DN3I'VE A FLEET ОҒ 5 GALLEON 
S HIDDEN IN" 


MORE — 
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Pirates 


Alteration—To use the numeric keypad to 
change direction, change line 300 to 300 K$ 
= " „8624 '' :X=RND(0). This turns on the 
numeric keypad so 8,6,2 and 4 control up, 
right, down and left respectively. 


Alteration—Change the amount of 
ammunition and men by changing the value of 
A and M in line 300. 


Alteration—Change the speed of your ship by 
changing the values of 2 in lines 390-420. 
Don't change the plus or minus signs. 
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S0 PRINT"THESE WATERS. CATCH ME IF YOU C 

AN." | 

90 PRINT"tC/DN?2 YOUR SHIP IS WHITE AND MY 
SHIPS (ИНЕМ" 

100 PRINT"YOU FIND 'EM) ARE AS RED AS MY 
BEARD. " 

110 PRINT SC / DN YOUR SHIP HAS A CREW OF 

200 MEN AND 100" 

120 PRINT"CANNON ROUNDS.":PRINT"CC/DN23HI 

T ANY KEY" 


130 GETKEYGS 


140 PRINT"CCLR3(C/DN3YOU'LL NAVIGATE WIT 
H THE CURSOR KEYS." 

150 PRINT"HIT F TO FIRE CANNONS AND B TO 
BOARD." | | 
160 PRINT"CC/DN3IF YOU TRY TO BOARD OR F 
IRE UPON. А" 


170 PRINT"SHIP THAT'S OUT OF RANGE YOUR 


GUNNER”. 

180 PRINT"WILL TELL rou ABOUT IT. TO BOA 
RD A" 

190 PRINT"SHIP YOU MUST BE VERY CLOSE." 
200 PRINT"tC/DN2? YOU HAVE З MINUTES TO FI 
ND MY SHIPS" 

210 PRINT"OR I'LL FIND YOU!" 

220 PRINT"{C/DN3HIT ANY KEY TO START." 
230 GETKEYGS:PRINT"4CLR32* 

240 FORXZOTOS39:CHAR1,X,0," %,1:МЕХТ 

290 ҒОКХ-17025: POKE (RND (1)3:1000*1024) , 10 
2: NEXT 

260 MOVSPR1,40,50: SPRITE1,1 

270 FORA-2TOó 

280 РХ(Х)= INT(RND(1)3297424); PY (A) =INT(R 
ND(1)3X180450) | 

290 MOVSPRA, PACK) ,PY OX) NEXT 

300 E= CC/UPMCC/RTMC/DNICC/LE3BE" :A210 
0: M2200 

310 FORAZ2TOÓ:D(X)210: NEXT 

320 CHAR1,1,0,"MEN 200",1 


330 CHAR1,10,0,"AMMO 100",1 


340 СНАКІ, 20,0, "GOLD ооо", і 


350 ТІФ= "000000": TL=300 


360 REM START LOOP 

370 CHAR1,30,0,"TIME "*MID$(TI$,4,1)4":" 
+RIGHTS (TIS, 2), 1 

380 GETGS$: ON INS TR (КФ, G$)*1 6070370, 390, 
400, 410, 420, 440,530 

390 MOVSPR1, *0,-2: 5070640 

400 MOVSPR1, *2, +0: 6070640 

410 MOVSPR1,*40,-42:GOTOó40 

420 MOVSPR1,-2,*0:GOTOÓó4O0 


| 430 REM BOARD SHIP 


Pirates 


440 R25:G05UB720 
450 IFF=OTHENM$="NO SHIPS IN RANGE, CAPT 
АІМ. ": 60508720: GOTO640 

460 FORX-2TO06: IFR (X) S4THENSOUND1 , 25000, 1 
00,0,20000,150,0 

470 IFR(X)=1 THENM=M-INT (RND(1)%70) : SPRIT 
EX, Oo: MOVSPRX,0,0: X26 

480 NEXT: IFM<=OTHENM$="THERE WERE TOO МА 
NY.. THEY CAPTURED US.":GO0TOS00 

. 490 G=G+INT (RND(1)¥100+100) :CHAR1,24,0,8S 
TRS (G) +"  ",1:CHAR1,4,0, STRS (M) T ",1 
500 P-P*1:M$-2"PIRATE SHIP CAPTURED. ":GOS 
UB760 

510 6070240 

520 REM FIRE CANNONS 

530 В=30: 60508720 

540 IFF=OTHENM$="NO SHIPS IN RANGE, SIR. 
" : GOSUB760: GOTO640 | 

550 IFAC=OTHENM$="WE’RE OUT OF AMMO, CAP 
TAIN. n: 50508750: GOTO640 

560 FORX=2T06: IFR (Х) =1 THENSOUND1, 1400, 40 
1, 1200, 5, 3: ASA- INT (RND (1) X10) 

570 IFA«OTHENASO  — 

580 IFR(X) 1THEND (X) 2D(X) -INT (RND G1) X6) 
CHAR1,14,0,8TR$(A)*" "gi 

590 NEXT:FORX-2TOé: IFD(X) <=OTHENSPRITEX, 
| 0: MOVSPRX,0,0 


MORE — 


Pirates 


Alteration— Line 650 tests to see if your time 
is up. To give yourself 4 minutes to play the 
game, change the first statement to IF 
VAL(TI$)>=400 etc. 


Alteration—Lines 710-740 provide a routine 
to check the range of pirate ships. Variable R in 
lines 440, 530 and 660 does this. Change the 
values of R to change allowable ranges. 


Programming Тір--Тһе subroutine in lines 
750-780 centers a message, variable M$, on the 
screen regardless of length. 


500 IFD(X)<=OTHENM$="PIRATE SHIP SUNK!": 
р(Х) =1:Р=Р+1 : 60508760 

610 NEXT | 

620 IFA=OTHENM$="WE COULDN'T RETURN FIRE 
...WE'RE SUNK! ":GOTOS0O 

630 ІҒЕМ (1) <. ОЗТНЕММФ= "ШЕ? VE BEEN HIT 5 
IR! SHE'S GOIN’ DOWN!":GOTOSOO 

640 IFP=5THENM$="YOU WON!! THE QUEEN SEN 
DS HER THANKS.":GO0TO800 - 

650 IFVAL(TI#) >=SOOTHENMS="TIME’S UP MAT 
EY... THE SEA IS MINE! ":GOTOS00 

660 R=40:G0SUB720 

670 IFF=O0THEN370 | 

680 FORX=2T06: IFR(X) =1THENSPRITEX, 1 

690 NEXT: 60030 

700 REM SUBROUTINES 

710 REM CHECK RANGE 

720 F=0:FORX=2T06:R(X)=0 

730 IFABS(RSPPOS (1,0) -RSPPOS (X, 0) )<RTHEN 
IFABS (RSPPOS (1,1) -RSPPOS (X, 1) ) < (R¥.77) TH 
ENR(X)=1:F=1 

740 NEXT:RETURN 

750 REM PRINT MSG 

760 CHAR1,20.5-(LEN(M$)/2) , 1, Hs: SLEEP2 
770 FORX-OTO38:CHAR1, X, d," "i NEXT 

780 RETURN 

790 REM END OF GAME 

800 FORXS1T06:SPRITEX,O:NEXT 

810 PRINT"LCLR3":CHAR1,20.5- (LEN (M$) /2), 
1,M$ 

820 PRINT:PRINT"{C/DN}{C/DN}YOU GOT"G"GO 
LD PIECES" 

830 PRINT"AND"P"PIRATES. " 

840 PRINT"{C/DN}{C/DN}{C/DN3PLAY AGAIN ( 
Y/N)?" 

850 GETKEYGS$:IFG$-"Y"THENRUN:ELSEIFGS(»" 
N” THEN850 

860 END 

870 REM DRAW SHIP SPRITE | 

880 COLOR1, 2:COLOR4, 13: COLORO, 4: GRAPHIC1 


890 BOX1,0,14,7,15 

900 DRAW1,2,1ó6 TO 18,16 

910 DRAW1,14,15 TO 18,15 

920 DRAW1,15,4T015,14T023,14T015,6 
230 DRAW1,16,11 TO 21,12 

940 PAINT1,17,10 

250 DRAW1,16,4T016,5T018,5T019,6 
960 DRAW1,18,16T7015,19T03,19T03,17 
970 PAINT1,10,17 

980 DRAW1,12,2T09,1T09,0T09,15 


Pirates 

——  — M———— X ..... 

290 DRAW1,13,14T08,10T08, 67010, 57010, 117 

011, 117011, ? 

1000 DRAW1,7,4 TO 4,3 TO 4,13 

1010 DRAW1,7,13 TQ 6,12 

1020 B0X1,3,6,5,11 

1030 SSHAPE A$,0,0,23,21 

1040 FORX=1TO46:SPRSAV AS, X: NEXT 

1050 SPRITE1,0,2 

1060 FORX= 2706: SPRI TEX, O, 10: NEXT 

1070 GRAPHICO, 1: RETURN 
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Master Code 


Master Code 


This short program is based on a popular board game. The computer invites you to break a secret code. 
When the four squares appear on the screen, you enter one number of code at a time. The number is between 1 


and 5. A number may be repeated. 


Ac correct answer is indicated by an asterisk in that square. You have four tries to break the code. You win 
when you guess all four numbers in the code. | | 


Alteration— Change the second number in the 
COLOR statements of line 30 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 


2 
cane 


ш а а 
L| 

š 

SX N y 


N 


LATTE 
ыз. 
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10 REM MASTER CODE 
20 M$z'"CHOME3CC/DN3€C/DN2 CC/DN32£C/DN2":L.— 


S$zMSRUIC/DNI2CC/DN3CC/DN3CC/DN2 CC/DN2CC/D. 


NYCC/RTSCC/RT3CC/RT3CC/RT3CC/RT24C/RT24C 
/RT3CC/RT3£C/RT3 CC/RT2CC/RTSCC/RT2CC/RT? 
CC/RT3CC/RT3£C/RT3 CC/RT34C/RT3CC/RT3" 

ЗО COLOR4,ó6: COLORO,2:PRINT"{CLRI CBLK2 "TA 
B(14) "MASTER CODE" 

40 PRINT"{C/DN3{C/DN3I АМ LILY HAZET, А 

CYBERNETIC CODE" 

SO PRINT"GENERATING PROGRAM. YOU ARE ABO 
UT TO" 

60 PRINT"ATTEMPT TO BREAK MY CODE." 

20 PRINT"4C/DN2I WILL GENERATE FOUR SQUA 
RES. EACH" 


Master Code 


Alteration—Make the game more difficult by 
changing the 5 in lines 130-160 to a larger 
number. This increases the range of numbers 
that the computer can use in its code. Be sure to 
change the PRINT statement in line 80 to reflect 
the new range. 


| Programming Note—Make the graphic char- 
acter in lines 180 and EM by typing 


| COMMODORE- + 


Alteration — Make the game easier by increas- 
ing the number of guesses the user gets. For 
example, changing X in the first part of line 200 
to FOR X=1 TO5etc.allows the user five tries. 
Then change the PRINT statement in line 90 to 
tell the user how many tries he gets. 


220 PRINTL$;:INPUT"A 


SO PRINT"SQUARE WILL REPRESENT ONE NUMBE 

R:";PRINT"1, 2, 3, 4, OR 5." | 

90 PRINT"{C/DN}YOU WILL HAVE FOUR TRIES 
TO OBTAIN THE":PRINT"CORRECT SEQUENCE. " 
100 PRINT"{C/DN}NUMBERS MAY BE USED MORE 
THAN ONCE. " : PRINT" CC/DN3HIT ANY KEY TO 

START." 

110 GETKEYGS 

120 PRINT"(CLR2"TAB(14) "MASTER CODE" 
130 Е=ІМТ (RND(8) X5) 71 

140 B=INT (RND(8)3X5) +1 

190 С=ІМТ (ЕМр (8) 5) +1 

160 D=INT(RND(8)¥5)+1 

170 PRINTTAB(13)"tC/DN3£C/DN3A B C 


180 PRINTTAB(13)"{RVON} {RVOF} ШЕ {RV 
ON}8 {RVOF} {RVON} БУОР" 

190 PRINTTAB(13)"{RVON} (RVOF) We (R 
ON} CRVOF) {RVON}BCRVOF3" 

200 FORX=1T04:PRINTLS"{C/UP3{C/UP3 "X 

210 IFW-ETHEN240 

CC/LF3CC/LF3(C/L 
FiCC/LF3"4W 

230 IFW-ETHENPRINTM$; ТАВ (13) "{RVONIX#{RV 
OF }":PRINTTAB(13) "t RVON2HORVOF 3" 

240 IFV=BTHEN270 

250 PRINTL$;:INPUT"B 
F}{C/LFI"3V 

260 IFV-BTHENPRINTM$; TAB (17) " CRVON HHECRV 
OF }": PRINTTAB(17) "{RVON HHERVOF 3" 

270 IFY-CTHENS3OO 

280 PRINTL$; : INPUT"C 
F}{C/LF3"3Y 

290 IFYSCTHENPRINTMS; TAB(21) " CRVON23HECRV 
OF3":PRINTTAB(21) "CRVON3EXCRVOF 2 " 

300 IFZ=DTHEN330 

310 PRINTL$; : INPUT"D 
FX(CC/LF3";2 

320 IFZ-DTHENPRINTMS$; ТАВ (25) " CRVON23EECRV | 
OF3":PRINTTAB(25) "{RVON}¥X{RVOF3" ` 

330 IFW=EANDV=BANDY=CANDZ=DTHEN400 

340 NEXTX 

350 PRINTCHR$(27) "G(C/DN3CC/DN? "ТАВ (6) "Y 
OU DID NOT BREAK THE CODE." | 
360 PRINT"{C/DN}"TAB(S) "IT WAS: "E3B3C3D 
370 PRINT"{C/DN}"TAB(7) "HIT ANY KEY TO Р 
LAY AGAIN." 

380 PRINTTAB(13)"<STOP> TO QUIT" 

390 GETKEYQS: RUN 
400 PRINT"{C/DN} 
N'"X"TRIES! ! !" 
410 GOTO370 


ІСЛЕУСЛЕНС/І 
(C/LF3CC/LF)CC/L 


CC/LF 3 40C/LF34€C/L 


YOU BROKE THE CODE I 
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A Day At The Races 


You've gone to the dogs—the dog track that is. You and the computer can choose among four dogs racing 


toward the finish line. 


The program is complete with user-friendly features such as music, an introduction, a racing program, fun 
graphics and easy restart. It works great as is, but it's also fun to personalize. 
This is a fun game for up to nine players. The computer keeps track of your wins and losses. 


Alteration—Change the names and de- 
scriptions of the dogs in lines 20 and 1090-1270 
to match the names and characteristics of dogs 
you know and love. 


10 REM A DAY AT THE RACES 

20 D$(1)2"MOLLY":D$(2)2"FELICE":D$(3)-2"B 
AD DOG";D$(4)2"BILLY" 

30 0(1)22:0(2) =10:0(3) =4:0(4) =7 

40 Р(1) =.4:Р (2) . 43: P (3) =.41:Р(4) . 42 

50 COLORO,12: COLOR4, 12 

60 FORX-1T09:M(X)2500: NEXT 

70 PRINT"CCLR3€UHT3WELCOME TO UNCLE LOUT 
5° DOGTRACK, BEST":PRINT"DOGTRACK IN ARI 
ZONA. " 

80 PRINT"{C/DN3I HOPE YOU'RE FEELING LUC 
KY TODAY." 

90 PRINT"I HAVE SOME OF THE FINEST PUPS 
IN THE" 

100 PRINT"MICROCHIP WORLD JUST READY TO 
RUN THEIR":PRINT"PAWS OFF." 

110 PRINT"CC/DN3HOW MANY PLAYERS TODAY ( 
UP TO 9)? "j 

120 GETKEYGS$:IFGSi"1"ORGS»"O"THEN120 

130 PRINTGS:PRINT"t4C/DN32GLAD TO HAVE YOU 
з YOU CAN CALL ME LOUIS. ":P=VAL (6%) 

140 FORA=1TOPCPRINT"{C/DNIWHAT IS PLAYER 
"ХСЛЕ У° 5 NAME"; : INPUTNS(X) NEXT 

150 PRINT"4C/DN3WOULD YOU LIKE TO SEE А 
PROGRAM (Y/N) 2" 

150 GETKE VGS: IFQS="Y" THENGOSUBIO?SO:ELSEI 
FQS< >"М"ТНЕМ160 

170 PRINT"{CLRIPLACE YOUR BETS BY SELECT 
ING NUMBER. (C /DN2 " 

180 FORX=1TO4;PRINTX"(C/LF1) "DS(X) 5 TAB 
13) 300) "TQ 1" NEXT 
190 FORA=1TOP: B(X)=0: NEXT: FORX=i1TOP 

200 TFM(X) «I1THENPRINT"CC/DN2PLAYER"X" IS 
BROKE.":GOTO260 

210 PRINT"tC/DN3PLAYER"X:PRINTNS$S(X)", "j 
220 INPUT"WHICH DOG";S(X) : IFS (Хх) 240RS (X) 
«1ТНЕМ220 

230 PRINT"YOU HAVE %"М(Х) ТАВ(19); 

240 INPUT"YOUR BET";B(X) 

290 IFB(X) INN) THENPRINT"SORRY YOU DO NO 
T HAVE CREDIT":GOTO230 

260 NEXT | 


Ca — .. — 
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Alteration—Change the sound of the starting 
pistol by changing the values of the numbers in 
the SOUND statement of line 330. To simply 
increase the volume, add this line: 315 
VOLUME 8 


Alteration—Change the color of the dogs by 
changing the value of the third number in any 
SPRITE setup line, lines 360, 380, 400 and 
420. For example, 360 SPRITE 1,1,7,0:REM 
SET UP SPRITE 1 replaces a 12 with a 7. This 
changes the color of Sprite 1 to blue instead of 
dark gray. 


Alteration— You can change the speed of the 
dogs by increasing the second number in the 
SPRITE commands of lines 440-470. For ex- 
ample, change +2 to +4. If the number is too 
big, the dogs will seem to jump toward the 
finish line. 


270 PRINT"{C/DN3ALL BETS ARE IN...":PRIN 
T"HIT ANY KEY TO START THE КАСЕ. ": СЕТКЕҮ 
9% | 

280 ІР2=0ТНЕМ№М2=1 : БО50В780: GOSUB4S460 

290 COL ORO, 6: GRAPHICI:TEMPO 12 

300 PLAY "ViO4TSUSXO" 


810 PLAY "V10386V1048GSGSGSGSHFSHFSHFSFS 


FSGWE" 
320 PLAY "V1OJSESHFGGSESHFGGSESHFGGGGOG" | 
330 SLEEPS: SQUND1,4500,5,0,4500,0,3 

340 REM START RACE 

350 MOVSPR 1,20,95:REM POSITION SPRITE 1 
360 SPRITE 1,1,12,0: REM SET UP SPRITE 1 

370 MOVSPR 2,20,111:REM POSITION SPRITE. 


380 SPRITE 2,1,10,0: REM SET SPRITE 2 

390 MOVSPR 3,20,127:REM POSITON SPRITE 3 
400 SPRITE 3,1,3,0:REM SET UP SPRITE 3 
410 MOVSPR 4,20,143:REM POSITON SPRITE 4 
420 SPRITE 4,1,7,0: REM SET SPRITE 4 | 
430 REM MOVE DOGS | | 
440 IFRND(1)2P(1)THENMOUSPR1, +2, +0: IFRSP 
РО5(1,0) 2312THENW-1: GOTOSOO0 

450 IFRND(1) „F (2) THENMOVSPR2, +2, +0: IFRSP 
POS (2,0) »312THENUZ2: GOTOS00 | 
460 IFRND (1) >Р (3) THENMOVSPRS, +2, 10: IFRSP 
POS (3,0) >SL2THENW=3: 5070500 

420 IFRND (1) P (4) THENMOVSPR4, +2, +0: IFRSP 
POS (4,0) >312THENW=4: GOTOSOO 

480 GOTO440 

490 REM DECLARE WINNER 


500 ЗІ ЕЕРЗ: COLORO, 12 
MORE — 
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Programming Note—Make the graphic char- 
acter in line 710 by typing COMMODORE- +. 


310 FORX-1TO4:SPRITEX,O:NEXT:GRAPHICO 

520 PRINT"tCLR2£C/DN2 £RVON2WE HAVE A WIN 
NER!" | 

330 PRINT"tC/DN3H"W"- "D$(W)" PAYS OFF А 
T"O(W)" TO 1." — 

940 FORAZITOP:;PRINT"C4C/DN2"A"4C/LF2) "NS 
(х); 

550 IFS(*%)=WTHENPRINT" WINS $"B((X)X(G (UID 
-1)"!";M(R)MGD *BO3X(0(0)-1) : БОТО 570 

550 PRINT" LOST $"B(X) "ОМ THAT ONE.":M(X 
JEM (X) -BCA) 

370 NEXT | 

580 Х=0: FORY=1TOP: IFM(Y) »OTHENA-1 

390 NEXT: IFAXA=OTHENPRINT"{C/DN}EVERYONE’S 
BROKE!" 

600 IFX=OTHENPRINT"{€C/DN3YOU’VE PAID FOR 
MY VACATION. ":PRINT"{C/DN3IC RUN] TO REST 

ART. "END | 


610 PRINT"{C/DN}ANOTHER RACE (Y/N)?". 


620 GETKEY@S: IFQ$="¥" THEN1IS0O 
530 IFQS< У "М"ТНЕМё20 | 
240 PRINT"{CLR}":FORX=1TOP:PRINT"{C/DN}" 
A"CC/LF2) "N$(UX)" IS LEFT WITH $"M(X):NE 
AT: END 

550 REM DRAW RACE TRACK 

640 COLORO, ё: COLOR4, 12: COLOR1, 1: SCNCLR 
670 ҒОКХ-48Т701125ТЕР16:ПКАМ1,0,ХТ0319,Х: 


- NEXT 


680 B0X1,100,6,219,24,0,1 

690 CHAR1,14,1,"UNCLE LOUIS'",1 

700 CHAR1,16,2,"DOGTRACK",1 

710 FS="SF INISHR"  ҒОКХ-1Т08:СНАН1, 37, 57 
3МІП%(ҒФ,Хх,1),1:МЕХТ 


720 ҒОБХ-1704:СНАК1,0,2ХХ45,МІр%(5ТК%(Х) 


‚2):МЕХТ 
730 FORX-OTOS19STEP9:B0X1,X,120,X,170,45 
240 BOX1,X,120,X,170,135:NEXT 

750 FORX-1T0319STEP31.4:B0X1,X,120,X*3,1 
65,0, 1: NEXT | 


760 RETURN 


770 REM DRAW DOGS SUBROUTINE 

780 GRAPHIC1:COLORO, 1:COLORi1,1 

790 SCNCLR:REM DRAW DOGS 2,4 

800 DRAW 1,25,11 TO 28,14 TO 30,14 TO 31 
,15 TO 33,15 | 

810 DRAW 1,32,15 TO 32,17 TO 31,18 TO 29 
,18 TO 28,19 

820 DRAW 1, 29, 20 TO 30,20:DRAW 1,25,27 
830 DRAW 1,27,18 TO 27,21 TO 26,23 TO 25 
,23 TO 25,27 
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840 DRAW 1, 24, 27 TO 23,27 TO 23,24 7022, 
23 TO 22,21 | 
850 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 
,25 TO 16,27 TO 17,27 ! 
860 DRAW 1,15,27 TO 14,27 TO 14,22 TO 12 
20 TO 12,18 TO 14,16 | 

870 DRAW 1,15,16 TO 18,16 TO 19,15 TO 22 
,15 TO 25,11 | | 

880 DRAW 1,11,16 TO 12,15 TO 13,15 

890 PAINT 1,26,16 

900 DRAW 0,26,15 к 

910 SSHAPE BS, 11, 10, 34,31 

920 SPR SAV ВФ, 2: SPRSAV ВФ, 4 

930 SCNCLR:REM DRAW DOG 1,3 

940 DRAW 1,25,11 TO 29,15 TO 33,15 

950 DRAW 1,32,15 TO 32,17 TO 31,18 TO 29 
,18 TO 28,19 

920 DRAW 1,29,20 TO 30,20:DRAW 1,26,27 
970 DRAW 1,27,18 TO 27,21 TO 26,23 TO 25 
‚23 TO 25,27 

980 DRAW 1,24,27 TO 23,27 TO 23,24 7022, 
23 TO 22,21 

990 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 
‚25 TO 16,27 TO 17,27 TN 
1000 DRAW 1,15,27 TO 14,27 TO 14,22 TO 1 
2,20 TO 12,18 TO 14,16 

1010 DRAW 1,15,16 TO 23,16 TO 25,11 

1020 DRAW 1,12,13 TO 11,14 TO 11,16 TO 1 


4,16 
| MORE > 
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1030 PAINT 1,26,17 

1040 DRAW 0,28,15 

1050 SSHAPE С%,11,10,34,31 

1060 SPRSAV С%,1:5РКБАМУ C$,3:SCNCLR 

1070 RETURN | 

1080 REM PRINT PROGRAM 

1090 PRINT"{€CLR31) tRVON2MOLLYCRVOF3: HU 
SKY MIXED BREED CAN REALLY" 

1100 PRINT" HAUL...HAS WON 16 OUT OF 2 
qu 

1110 PRINT" PROFESSIONAL RACES. THIS 7 
YEAR OLD" 

1120 PRINT" HAS EXPERIENCE, CONFIDENCE 
AND CLASS."; 


1130 PRINT" A SURE BET IF SHE DOESN'T 


STOP ALONG" 
1140 PRINT" THE TRACK FOR A SNACK. »: PR 
INT" ODDS: 2-1" 

1150 PRINT"£C/DN32) tRVONJFELICE(RVOF?: 

THIS 8 YEAR OLD SHAGGY HAS" 

1160 PRINT" BEEN KNOWN TO FALL ASLEEP 
IN THE" 

1170 PRINT" MIDDLE OF THE TRACK. BUT W 

ATCH OUT." 

1180 PRINT" THIS SLEEPER IS FULL OF SU 
RPRISES.":PRINT" ODDS: 10-1" 

1190 PRINT"{C/DN3{C/DN}{C/DN3HIT ANY KEY 
FOR NEXT PAGE":GETKEYGS 

1200 PRINT"{CLR}3) C(RVON2BAD DOG{RVOF?: 
THIS GUY CAN RUN..." 

1210 PRINT" UNFORTUNATELY, HE HAS BEEN 
KNOWN TO" | 

1220 PRINT" THROW A FEW RACES...HIS LI 
CENSE IS" 

1230 PRINT" ON PROBATION.":PRINT® OD 
DS: 4-1" 

1240 PRINT"{C/DN34) {RVON}BILLY{RVOF} TH 
IS PUP HAS SPEED, PEP, AND" 

1250 PRINT" VITALITY...IF HE RUNS IN T 
HE RIGHT" | 

1250 PRINT" DIRECTION. НЕ IS A REAL ТН 
ВЕАТ. " 

1270 PRINT" FIRST PROFESSIONAL ВАСЕ. ": 
PRINT" ODDS: 7-1" 

1280 PRINT"{C/DN3{C/DN3HIT ANY KEY TO PL 
ACE YOUR BET. ":GETKEYO$:RETURN 


Lost Dutchman Mine 


Lost Dutchman Mine 


Here's a game based on an Arizona folk tale about the disappearance of a Dutch prospector in the 
Superstition Mountains. The game is an adventure maze with more than one screen display. You move through 
the first maze picking up gold pieces (e) and searching for clues (?) to the hidden treasure of the mine. But уой п те 
constantly being chased by ghosts of lost prospectors. The game ends if опе catches you. 

When you touch the correct clue, you've found the secret treasure stash. You then find yourself in a new 
room. The treasure is in clear sight, but it’s protected by the Dutchman’s ghost. If your reach the treasure, you 
receive 10 times the amount of gold collected in the first maze. 


Alteration For Western music, add the mus- 10 REM LOST DUTCHMAN MINE | 
ie from Hangman to this program before line | 20 X=RND (0) :WL2160:BL232:N-50: GOSUBS40 
E | 30 SR=0:GL=2020: DV=40: DHz1:K$z"CC/UP2 CC/ 
| RTY(C/DN1(C/LF)" ` 
40 REM START LOOP 
50 CHAR1,14,0, "SCORE: "+STRS(SR) 
60 D=0: IFVTHENSO 
70 ONJOY(2)*1GOTO 210,90, 210, 100, 210, 110 
210, 120, 210 
80 GETGS:0N INS TR (KS, 8s, 171 6070210, 0, 
100,110,120 
90 D=-DV:GOTO130 
100 D=DH:GOTO130 
110 D=DV:GOTO130 
120 р=-рн:60т0130 
| МОВЕ э 


d 
3 
QU 


РЧ 
Luoma 


(7 Sue 
Har 
>” — 
2277 — 
f 


1171 
raer 
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Alteration—To change the value of a piece of 
gold to 5, change the number 1 to 5 in line 170. 


180 SOUND1,3000,1,0,0,0,3:POKE208,0 


140 IFPEEK(L+D)=BLTHEN 210 
150 IFPEEK(L+D)=WLTHEN 230 
160 IFPEEK(L+D) =GTHEN350 
170 IFPEEK(L+D)=GPTHENSR=SR+1:GOTO 210 
180 IFPEEK(L+D)=CLTHENSR=SR+100:CHAR1,0, 
o, "FIND ROOM":SLEEP1:CHAR1,0,0," 

и ` 


190 IFL*D-RLTHEN410 
200 IFL+D=GLTHENSOO 


210 POKEL, BL: L=L+D:POKEL,I 


220 LY=INT((L-S) /DV) : LX-L-S-LYXDU 

230 D=0:NG=3: IFRL=2020THENNG=1 

240 FORX=1TONG:POKEG(X),BL 0 

250 GYsINT((GUO -8) /DV) : GXS6(X) -5-GYXDV 
260 IFGX«LXTHENIFPEEK (G(X) +DH)<N THEND=D 
Нн: 6070280 | 
270 IFGX>LXTHENIFPEEK(G(X)-DH)<N THEND=- 
DH 

280 IFGY>LYTHENIFPEEK(G(X)+D-DV)<N THEND 
=D-DV: GOTO300 | 

290 IFGY«LYTHENIFPEEK(G(UX) TDT DVI N THEND 
=D+DV 

300 IFPEEK(G(X) +D) =ITHEN350 | 

310 G(X)=G(X) +D!POKEG(X) ,G: IFG265THENG-8 
8:G0T0330 

320 IFG=88THENG=65 ` 

330 NEX TX: SOUND1, 40000, 1: GOTOSO 

340 REM CAUGHT 

350 COLOR4, 3:SOUND2, 20000, 300, 2, 10000, 10 
Q | 
360 SLEEP4:COLORA, 15: PRINT" CCLR2 CC/DN34C 
/DN}YOU LOSE!!!" 

370 PRINT"MY GHOST GOT YOU!" 

380 PRINT"{C/DN3}HA HA HA HA НА!" 

390 GOTO530 

400 REM SECRET ROOM 

410 PRINT"{CLR}"!:FORX=1T019: POKE1064+%, 1 
60:РОКЕ1544+Х, 160: NEXT 

420 FORX=1065TO1525STEP40: POKEX, 160: POKE 
Х+18, 160: NEXT 

430 $21106:B-160:BX249 

440 FORX-OTOBX: POKES*4OXINT (RND(1)X12) +1 
NT (ЕМО (1) 17) B: NEXTX 

450 GL-S*40XINT (RND(1) X12) «INT (RND(1) X12 
) :POKEGL , 164 I 

460 G=88:FORX=1T03:G(X)=1513:NEXTX:L=S+8 
470 FORXS1TO3:POKEG(X),G: NEXTX:POKEL, I 
480 RL=2020 | 

490 SLEEP1:GOTOSO 

500 SLEEP! 


Programming Note — Make the graphic char- 
acter in line.620 by typing SHIFT-X. 


Alteration—For an easier cave, decrease the 
value of variable BX in line 750, and vice- 
versa. · 


Alteration— Changing the value of variable C 
in line 750 will change the number of gold 
pieces in the cave. 
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510 PRINT Y (CLR) CC/DN3CC/DN2"TAB(LA) "YOU 

FOUND THE GOLD!" 

520 PRINTTAB(11)"(C/DN3£C/DN3FINAL SCORE 
:"SRX10 

530 PRINT"{C/DN}{C/DN}PLAY AGAIN (Y/N)?" 
540 GETKEYOS: IFG$-"Y"THENRUN: FS "N"TH. 
ЕМ540 

550 END 

550 PRINT" tCLR3CGRY 12" : COLORO, 2:COLORAÀ, 1 
5 

570 PRINT"{RVON}LOST DUTCHMAN MINE ADVEN 
TURE" 

580 PRINT"{C/DN}SOME TIME AGO, IN ARIZON 
A'S. SUPERSTITION" 2 

590 PRINT"MOUNTAINS, THE GOLD OF THE LOS 
т" | 

200 PRINT"DUTCHMAN WAS LOST IN А CAVE." 

610 PRINT"{C/DN3AS YOU SEARCH THE CAVES 

BE SURE TO" 

620 PRINT"AVOID THE GHOSTS (4)." 

630 PRINT"{C/DN}COLLECT COINS (.) FOR PO 
INTS AND THE" 

640 PRINT"MYSTERIOUS CLUES ({RVON}?{RVOF 
)) TO HELP YOU ON":PRINT"THE WAY" 

650 PRINT"{C/DN}YOU MAY USE JOYSTICK #2 

OR CURSOR KEYS" 

560 PRINT"TO MOVE. WHICH WOULD YOU LIKE 

(J/K)?" 

670 ВЕТКЕҮӨФ: IFS CRD "К"ТНЕМ70 

580 V=ASC (0%) -74 

690 PRINT"{C/DN}PLEASE ENTER YOUR FIRST 

INITIAL." 

700 GETKEYIS$:IFIS4"A"ORIS?"Z"THEN200 

210 I=ASC (ІФ) -64:PRINT"{CLR}" 

720 FORX=1065T01102: POKEX, 160: POKEX+800, 

160: NEXT | 
730 FORXe1108T018258TEP40:POKEX, 140: POKE 
X*37,160:NEXT 


740 831108: B=1 60: 6146: CL 171 


750 BX2249:0299:GP24ó x 
260 FORX=0TOBX:POKES+4OXINT(RND(1)3%19)+I 
NT(RND(1)%X35),B:NEXTX 

770 FORAZOTOC:POKES-*4OXINT (RND(10319) «ІМ 
T (RND (1) #35), GP: NEXTX 

780 FORX= 0103: RL= St4GOXINT(RND (1) 419) + INT 
(RND (1) & 35) : POKERL , CL: NEXTX | 

770 G-88:6(1)21428:G(2) 21458:G( 3) =1754:1. 
88718 

800 FOR 1703: POKEG HX), 6: NEX TX: POK El., І 
810 RETURN 
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Biorhythm 


Some experts believe say that our lives are governed by three regular cycles: physical (23 days), emotional 
(28 days) and intellectual (33 days). This fun program uses computer power to instantly calculate your current 
Status on each cycle, telling you about yourself today, yesterday or tomorrow! 

. The computer first calculates how many days you have been alive based on your date of birth and today's 
date. Then it calculates your biorhythm and displays the results for all three cycles on a two-dimensional graph. 
Results are accurate to within one day for any two dates in the 20th century. 

It's easiest to enter this program in the upper-case/lower-case mode. Do this by typing PRINT CHR$(t 4) and 
striking the RETURN key while in the direct mode. 


Alteration— Change the number 5 in lines 40 
and 50 to a 7 to change the musical instrument 
from a guitar to an organ. Then change the REM 
statements in lines 40 and 50 to reflect that 
change. Try values from 1 to 9 following the t 
in lines 40 and 50 to see what other instruments 
you can identify and use. 
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10 rem biorhythm 

20 scnclr 

30 tempo 8:rem melody by schuman 

40 play "viO4dt35u8xO":rem vi=guitar 

30 play "v204t5u8xO":rem v2-2guitar 

60 a$-2"viod4dqev2zo3icig viod4qdv2o3ifig vio 
4qcv203ieig vlo3qbv2o3icie'" 

70 b$-"vlo3iav2o3if viodicv2o3Sid viosibv 
20319 vio4didv2o3if vlodqcv2oS3ieif" 

80 c$-2"viO3qgv2o3ieid" 

20 d&-"viodqgv2o03ieig viodqfv2o03idig vio 
4qgev2o03icig viodqcv2o3ieig" 

100 et-"vio3qgbv2oS3idig vio3qav203iH4 id v 
10399 v2 ib 3 id viodqrv202qg" 

110 play a$:play bS: play cs 

120 play d$:play» e$ 

130 dimm$(12),p(10),e(10),1(10) 

140 color O, 16: color 4, 13 

150 forx=l1tol2: readm$(x) i next 

160 printchrs(14) "{CLRICBLUE}"tab(15)"{R 
VON} BIGRHYTHM” 

170 print CHC / DNV The theory of biorh 


_ ythms states that" 


180 print"each person has three psycholo 
gical" 

190 print"cycles corresponding to their 
physical," 

200 print"emotional, and intellectual st 
ates," 

210 print"{C/DN3} These cycles are said to 
begin at birth." 

220 print"The physical is 23 days long.” 
230 print"The emotional is 28 days long. 
n 


240 print"The intellectual is 33 days lo 


ng." 
290 print"{C/DNiThe first half of the cy 
cle is said to" 


Biorhythm 


260 print"be an 'up' time while the seco 

nd is" | 

270 print"considered a 'down' time. The 

midpoint" 

280 print"is called a critical day." 

290 input"tC/DN3Enter birth month (spell 
іі) "міф 

300 mizO:forxzi1toi2:ifleft$(mi$,3)slefts$ 
(m$(x),3) thenml=x 

310 next;ifmi-Othenprint^no such month"; 

gato290 

320 input Enter birth day (number)"j;dl:i 
fdi»31then320 

330 input"Enter birth year"sy1:ifyi<1000 
thenprint"All digits, please.":goto330 
340 input"{C/DNiToday’s month (spell it) 
"ims 


MORE — 
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350 mzO:forxz-i1toi2:ifleft$m$t,3)-left£$(m 
$(x),3) thenm=x 

340 FFC such month“: 9 
oto340 

370 input"Today's day (number) u; а:іҒа>31 
then370 | 

380 input"Today's year" sy:ify<1000thenpr. 
int"All digits, please.":goto380 

320 f-int((y-y1)X365.25* (mm) X30. 421 dd 
1): x=+#-4 

400 fori=Qtol0:;x=x+1 

410 p(i)=x/23-int(x/23)y:ifp(i)>.Sthenp(i. 
)=1-р(і) 

420 е(і) =х/28- int(x/28);itre(i)>, Sthene(i 
)=1-e(i) 

430 i(i)=x/33-int(x/33):ifi(i)>.,.Stheni(i 
)21-iti) 

440 ptil)2p(i)X2:et(i)se(i)Xx2:i(i)-i(i)X2:; 
next 

450 print"tCLR3 You have been alive"f"day 
Gt! 

460 print"4C/DN3Hit any key to see your 
biorhythm for{C/DN3"s printms; d'(C/LF3,"y 
:getkeyqs 

470 datajan,feb,mar, apr, may, jun, jul,aug, 
sep,oct,nov,dec 

480 graphic clr: ағарһісі, 1: colori, 7 

490 drawi,35,20to035,170t0300, 170 | 

500 for i=35t0280step20: drawl, i, FStoitio, . 
95: next 

510 chari,15,23, "t"ichari,13,24, "today" 
520 chari,9,0,"hit any key to continue" 
530 foris51to291step24:drawl,i,170tni,17 
З: пехі 

540 fori-1to3;readts$í(i) xti, yti) 

550 chari,x(i), y(i), +%(1): next 


560 data high, 0,2,crit,0,11,10w,1,21 


520 х--3: fori-5to3S5step3: chari,i, 22, (БЕР 
(x):x2xtiinext 

580 сһағ1,5,ілі(р(9)%1942,5)," р" 

570 chari,37,int(p(10)34942,5) , "р" 


600 сһағ1,5,ілі (е(0)Х%19ғ2.5), "е 


610 сһагі,3З?,ілі(е(10)Х%19%2,5), е 

620 chari,S,int(i(Q0)Xi1942.5),"i 

630 char 1, 37, int(i1(10)#19+2. ln B 

640 x21: fori-51to267step24 

650 drawl,i,int(pí(x-1)X150*419.5) to 1724 
„int (р(х) #150419, 3) 

660 drawil,i,intí(e(x-1)X150*19.5) to i+24 
„int (e (x) 4180719. 5) 


Biorhythm 


670 drawi,i,int(i(x-1)X150*419.5) to 1724 

sint(i(x)X150*19.53) 

680 x=xtlinext 

690 getkeyq$:graphicO 

700 print"{CLRI{C/DNi Calculate another b 

iorythm (Y/N) Р?" 

710 getkeyq#: ifqe="y"thenrun:elseifgs<>" 
n"then710 
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Queen Of The Nile 


Journey through Cleopatra's tomb in search of ancient treasure. Your time is limited to two minutes, and 
the dangers are many. But clever action will bring you rewards. 

Control your progress through the burial maze by using a joystick or the cursor keys to move yourself (U) to 
the treasure ($). By pressing the fire button or spacebar, you can blast through walls with шир But be 
careful because your supply of dynamite is limited. You may destroy treasure too! 

If you get too close to a snake pit (S) or mummy (M), you may get caught. 


Alteration—Change the amount of dynamite 
you start with by changing the value of DY in 
line 40. 


Alteration— For a denser and more difficult 
room, change .4 in line 70 to .3. 


Alteration—To increase the amount of gold in 
the room, change the .9 in line 80 to .8 or .7. 


Alteration—Change the number of snake pits 
and mummies by using a number other than 9 in 
line 90. 


10 REM QUEEN OF THE NILE 
20 FORA=1TO8S:READ L (XU: NEXT 
30 X=RND (0) : GOSUBS90 


40 K$="{C/UP}{C/RT}tC/DN}{C/LF} "¿UL=188 


4:0С=21:рү=9:С0=54272 — 

50 DV=40: DH=1:WL=160: GP=46: TR=36:MM=13:S 
Р=81: Ві =32 

60 FORXZ1064T01103: POKEX, WL: NEXT 

70 FORX=1104T01863: IFRND (1) >. 4THENPOKEX, 
WL 

80 IFRND(1)>. ӘТНЕМРОКЕХ, СР: POKEX+CO,? 

90 NEXT:;FORAZOTO? 
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Alteration— Change the time limit to 3 mi- 
nutes by changing the first statement in line 420 
to 420 IF УАЦТ19)>300 etc. 


100 M=INT(RND (1) ¥600) +1144: POKEM, MM: POKE 
M+CO,2 

110 S=INT(RND(1)¥600) +1144: POKES, SP: POKE 
S«C0,5 ` 

120 NEXT:FORX-1TO6 

130 T=INT(RND(1)%480) +1144 

140 IFPEEK(T) <>BLTHEN130 

150 POKET, TR:NEXT:POKEUL, UC 

160 ТІФ="000000" 

170 REH START LOOP 

180 FORX-1T04: IFPEEK (UL «L (X) ) -SPTHENIFRN 
D(1)4.1THEN 410 

190 IFPEEK(UL *L (X) ) EMMTHENIFRND(1)4. 1THE 
N 400 

200 NEXT 

210 CHAR1,2,0,"TIME-"4MIDS(TIS,4,1)4":"4 
RIGHTS(TIS,2)+" GOLD $"+STRS(G)+" DYNA 
MITE: "+STRS(DY), 1 | 

220 IFVTHEN250 

230 ON JOY(2)+1GOTO 420,260,420,270, 420, 
280,420,290,420 

240 GOTO470 

250 СЕТОФ:ОМ INSTR(K$,@$)+1 GOTO 420,260 
270, 280, 290, 470 

260 D=-DV: GOTO300 

270 р=рн: 6070300 

280 D=DV: GOTO300 

290 D=-DH | 

300 SQUND1,3000,1 

310 IF PEEK(UL+D)=BL THEN 380 

320 IF PEEK (ULD) UL. THEN 420 | 
330 IF PEEK(UL+D)=TR THEN G=G+INT(RND(1) 
X*1000)41000:G0T0380 | 

340 IF PEEK(UL+D)=GP THEN G-2G*100:60T038 


390 IF PEEK(UL+D)=MM THEN 400 

360 IF PEEK(UL+D)=SP THEN 410 

370 REM MOVE U | 

380 IFUL*D»1944 OR UL*D«1063 THEN 420 
390 POKEUL, BL: UL=UL+D: POKEUL, UC: POKEUL +C 
0,0: GOTO420 

400 POKEUL,BL:ES$-2"MY MUMMY GOT YOU! !1";F 
Lz1: GOTO530 

410 POKEUL,BL:ES$-2"YOU FELL INTO А SNAKE | 
PIT!!! "SFLai: GOTOS30 | 
420 IFVAL (TIS) >200THENES="TIMNE HAS EXPIR 
ED": GOTQS30 

430 IFRND(1)2.1THEN 180 

440 X-INT(RND(1)X600)*1144: IFPEEK (X) 4232 
ТНЕМ440 

450 POKEX,WL:POKEX*CO,0:GOTO180 


MORE — 
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460 REM EXPLODE DYNAMITE 

470 IFDY-OTHEN180 

480 FOR X-1TO8:POKEUL-«L (X) , BL: POKEUL -L (X 
),BLINEXT!:DY=DY-1 | 

490 SOUND2,5000,100,0,0,0,3 

500 FORVLS15TOOSTEP-.03:UO0L VL:NEXT 

510 V0L15:GOTO180 

520 REM END GAME ! 

530 SLEEP1:POKE208,0:PRINT"tCLR3tC/DN34C 
/DN} "TAB (20-LEN (E$) /2+.5) ES 

540 IFFL=iTHENS60 ` 

550 PRINT"{C/DN} YOU COLLECTED $"G"WOR 
TH OF GOLD!" 

560 PRINTTAB(12) "{C/DN3}{C/DN}PLAY AGAIN ` 
(Y/N) ?" | 
570 GETKEY0G$:IF@$="Y"THENRUN:ELSEIF0G#$<>" 
N" THEN570 

580 END 

590 COLORO, 13: COL ORA, 10: PRINT" CLR CUHT? 
"!PRINTTAB(11)"{RVON}QUEEN OF THE NILE" 

600 PRINT"LC/DN3YOU MAY USE JOYSTICK #2 

OR CURSOR" | 

610 PRINT"KEYS TO MOVE AND THE FIRE BUTT 
ON OR" 
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Programming Note— Make the graphic char- 
acter in line 690 by typing SHIFT-Q. 


520 PRINT"SPACE BAR TO DYNAMITE THROUGH 
WALLS. " 

630 PRINT"{C/DN3}USE NO JCRVOF 3OYSTICK 
OR {RVON}K{RVGFIEYBOARD (J/K)?" — | 

640 GETKEYOS: IFQS<"J"ORQS>"K" THENE4O 

650 V=ASC (0%) -74 

660 PRINT"{C/DN}{CLR}YOU HAVE TWO MINUTE 
S TO GATHER TREASURE.” | 

670 PRINT"CC/DN)SYMBOLS: ":PRINT"£C/DN3 € 
YELO}${WHT} = TREASURE" 

680 PRINT"{C/DN} (YELO3.(WHT3 = GOLD PIE 
CE":PRINT"£C/DN3 {REDIMCWHT} = MUMMY" 

690 PRINT"{C/DN} {GRN}@C{WHT? = SNAKE PIT 
"SPRINT"£C/DN3 {BLK}{RVON} {RVOF}{WHT} = 
WALL" 

200 PRINT"£C/DN2WATCH OUT FOR NARROW PAS 
SAGES... THERE" | 

710 PRINT"ARE SOMETIMES CAVE-INS IN THES 
E TOMBS!" 

720 PRINT"{C/DN}HIT ANY KEY TO START" 
230 GETKEYGS$:PRINT"OBLK) CCLR) " RETURN 

740 DATA-40,40,-1,1,-41,-39,41,39 


63 


Thin Ice 


Thin Ice 


Don your wool cap and grab your spear and auger because it's time to do some ice fishing on Ted's pond. 
Due to some recent warm weather, there are spots of thin ice. Avoid them because unusual dangers lurk below. 
Get as many fish as you can before time runs out. Be careful as you move across the ice because it takes a little 
while to change direction and speed on the ice! 


Alteration— To use the numeric keypad to - 


change direction, change line 30 to 30 
K$= " ,.8624 '! :X 2 RND(0). This turns on the 
numeric keypad so 8,6,2 and 4 control up, 
right, down and left respectively. 


Programming Tip—The 
X=RND(0) in line 30 is to scramble the 
random-number generator. Otherwise the “гап- 
dom" pattern is the same every time you run the 
program. 


Alteration— Changing variable A1 in line 230 
to a value of 45 lets you turn corners faster on 
the ice. Changing it to 15 will make turns slow- 
er. The number you use for A1 must be between 
O and 90 and divide into 90 evenly. 


purpose of 


10 REM THIN ICE 

20 COLORO,2:COLOR4,16:COLOR1,15:GOSUB740 
30 K$z",.CC/UP3 CC/RTYCC/DNOI CC/LF 2" : X-RND 
(0) | 

40 PRINT" {CLR}{LBLU}WELCOME TO TED'S PON 


50 PRINT"{C/DN}THE POND IS FROZEN OVER F 
OR THE FIRST" 

60 PRINT"TIME THIS SEASON." 

70 PRINT"{C/DN3YOU ARE INVITED TO ICE FI 
SH, BUT BE" 

80 PRINT"CAREFUL. THIS WARM SPELL MIGHT 

HAVE" 

90 PRINT"WEAKENED THE ICE. STICK TO THE 

WHITE" | | 
100 PRINT"ICE IF YOU CAN. 
OSS THE" 

110 PRINT"BLUE ICE, DO IT QUICKLY!" 

120 PRINT"{C/DN}CHANGE YOUR DIRECTION WI 


IF YOU MUST CR 


ТН THE CURSOR" 


130 PRINT"KEYS. SLOW DOWN WITH THE < KEY 
AND” 


140 PRINT"SPEED UP WITH THE > KEY. REMEM 


BER..." 
150 PRINT"IT TAKES A WHILE TO CHANGE DIR 
ЕСТІОМ" 

160 PRINT"AND SPEED ON THE ICE POND." 
170 PRINT"{C/DN}YOQU GET POINTS FOR THE М 
UMBER OF FISH" 

180 PRINT"YOU CATCH AND FOR SPEED... GOO 
D LUCK!" 

190 PRINT"£C/DN2HIT ANY KEY TO START." 
200 GETKEYGS$:PRINT"CCLR2" 

210 FORY-1TO5:FORX-14-YTO24«Y: CHARI, x, 6+ 
Y," ",1:МЕХТХ,Ү 

220 FORY-1TO5:FORX- 8+YTO30-Y: CHARI,X, 11+ 
Y," ",1:NEXTX,Y 

230 ES 510:41230: A2290:A32180:4A4 
-360:L12320:L2-0:L3-240:L4-40 

240 MOVSPR1, 30,70:A=90:S=1:SPRITE1, 1 

250 GOSUB550:T=T1:SPRITE2, 1 


Thin Ice 


REM START LOOP | 
CHAR1,14,9, "FISH="4STRS(F), 1 
CHAR1,14,11,"TIME-"*STR$(TI-T)4" , 


CHAR1,14,13,"SCORE-2" *STRS$(SC),1. 
GETG$:X- INSTR (KS, Q$) 
ІҒХ>2ТНЕМЗ50 
IFX=1THENIFSSOTHENS=S-1 . 


IFX=2THENIFS< 7THENS=S+1 


GOTG420 

D=(X-3) ЖА2 
IFD>A3t+ATHENA=A-Al : GOTO400 
IFD< A-ASTHENA=A+tA1 : GOTO4S00 
IFDSATHENA=A+t4A1 
IFD<ATHENA=A-Al 
IFA>=A4THENA=A-A4 
IFA«L2THENAZSAt*A4 

MOVSPR1,A HS EE 
MORE — 


Mz 


i 


65 


Thin Ice 


Alteration—Increasing the value of .07 in line 
600 increases the chance of ice breaking, and 
vice-versa. The range of possibilities must be 
between O and 1.0. 


430 


440 
450 


IFBUMP (2) AND1THENóGOO 
A=RSPPOS (1,0) : YRSPPOS (1, 1) 
IFX>L1 ANDA«405 THEN MOVSPR1I,L2,Y:60 


TO470 


460 
470 
270 
480 
490 
500 


IFX>L1 THEN MOVSPR1,L1,Y 
IFY>L3 ORY413 THEN MOVSPR1, uL La: 6070 


IFY<L4 THEM MOVSPR1,X,L3 

GOTO270 

REM GOT A FISH 
IFBUMP (1) ZL2THENRETURN 

SC=SCtINT (150-(TI-T)/10) 
F=F+i:SOUND1,40000,15 

IFF=20THEN670 

A=RND (1) #300+21: Y=RND (1)¥160+67 
MOVSPR2,%,Y 
IFA»85ANDA42950ANDY »95ANDY4 LSOTHENIFR 


ND(1)<.9THENSSO 


580 
390 
600 
610 
620 
630 
640 


A=BUMP (1) : TZTI: RETURN 

REM ON THIN ICE 

IFRND(1)5.07THEN440. 

MOVSPR1,O0 #0 

SOUND1, 30000, 150,2,20000, 50, 3 
COLORO,7: SLEEP3: SPRITE1, 0: SPRITE2,0 
CHAR1,6,12," CUHT2 YOU JUST BECAME SHA 


RK MEAL!” 
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650 CHAR1,7,15,"TYPE [RUN] TO PLAY AGAIN 
|." £PRINT: GOTO710 
560 REM WINNER 
670 SPRITE1,0:SPRITE2,0 
680 PRINT"£CLR?":PRINT:PRINT 
690 CHAR1,5,8,"YOU JUST CAUGHT А SCHOOL 
OF FISH!" 
700 CHAR1,7,10,"IT'S A MIRACLE! YOU WIN! 
"PRINT 
210 PRINT"{C/DN3{C/DN3FINAL SCORE-"SC 
720 PRINT"{C/DN?TYPE [RUN] TO PLAY AGAIN 
. "SEND 
730 REM FISH SPRITE 
740 GRAPHIC1,1 
750 CIRCLE 1,25,18,9,2:PAINT1,20,19 
760 DRAW 1,17,18 TO 13,16 TO 13, 21 TO 17 
18 
770 PAINT 1, 14, 17: DRA, 29,17 
780 DRAW 121,14 TO 21,21 
790 DRAW 1,32,16 TO 33,16:DRAW 1,21,15 T 
0 28,15 | 
800 SSHAPE AS, 11,10,34,31:SPRSAV A$,2 
810 REM ICE SKATER | 
820 SCNCLR:CIRCLE 1,17,13,1 | 
830 DRAW 1,18,13 TO 25,14 TO 19,18 TO 18 
‚13 
840 DRAW 1,25,14 TO 28,17 TO 25,19 TO 26 
,19 TO 26,20 | 
850 DRAW 1,25,21 TO 20,21 TO 20,18:DRAW 
1,25,16 
860 DRAW 1,22,22 TO 23,22 | 
870 DRAW 1,21,23 TO 24,23 TO 24,25 TO 21 
,25 TO 21,23 
880 PAINT 1,20,14:PAINT 1,22,24 
890 DRAW 1,21,26 TO 21,28 TO 22,28 TO 22 
,26 TO 23,26 
900 DRAW 1,19,28 TO 26,28 TO 27,27 TO 26 
,26 
910 DRAW 1,16,25 TO 19,28 TO 19,26 TO 20 
,26 TO 20,27 
920 DRAW 1,25,24 TO 27,24:DRAW 1, 14,17 T 
0 30,26 TO 29,24 TO 29,27 
930 SSHAPE A$,11,10,93,91:SPRSAV A$,1 
940 SPRITE 1,0,7,0,1:SPRITE 2,0,12 
950 GRAPHICO, 1:RETURN 


67 


Bomb Squad 


Bomb Squad 


You're the expert working against the clock, trying to find a ticking bomb hidden in a million-room tower! 
You have 250 seconds to find the bomb. Each move takes exactly 10 seconds. To help, you have a 
bomb-sensitive device that gives a stronger readout as you approach the bomb. 

You determine the location of a room by entering values from 0 to 99 for length, width and height. Your 
device then gives a readout that indicates how close you are to the bomb. 10,000 is the highest readout. A 
correct value for length, width or height is indicated by double asterisks in place of the number entered. 

If you don't find the bomb in 250 seconds, it explodes. If you do find the bomb, you have an additional 100 
seconds to defuse it. Guess the three-number combination in the same way you found the room. Enter values 


from 1-10. 


Alteration—To make the game less violent, 
change its name to Treasure Hunt. Change the 
statements that give the user instructions and 
commentary. The new statements should 
discuss finding a hidden treasure chest. When 
the chest is found, the user has to open the 
padlock. The rest of the game is unchanged. 


Alteration—To make the game easier, 
decrease the number of rooms by changing 
INT(RND(8)*100) for variables A, B and C to 
INT(RND(8)*50) in line 120. This gives 
125,000 rooms to choose from instead of a 
million. Be sure to change the instructions if 
you do this. 


Programming Note—Make the graphic 
characters іп line 150 by typing 
COMMODORE-Q, COMMODORE-R and 
SHIFT-+ repeatedly to match the printout 
shown here. 


Programming Note—Make the graphic 
characters in line 160 by typing 
COMMODORE-Q, COMMODORE-E and 
SHIFT-+ repeatedly to match the printout 


- shown here. 


10 REM BOMB SQUAD 

20 COLORO, 13:COLOR4,4 

ЗО PRINT"CCLR3t€WHT3YOU ARE ABOUT TO ACCE 

PT A DANGEROUS" : PRINT"MISSION." 

40 PRINT"{C/DN3A BOMB WHICH YOU MUST DIS 

ARM IS HIDDEN": PRINT"IN ONE ROOM OF A MI 

LLION-ROOM TOWER." | 

30 FRINT"tC/DN?YOU DESIGNATE THE ROOM NU 

MBER YOU WISH":PRINT"TO SEARCH BY LENGTH 

; WIDTH, AND HEIGHT" 

60 PRINT“ (EACH FROM 0-99). A tRVONJ39XCRV 

OF} INDICATES A'":PRINT"CORRECT ENTRY." 

20 PRINT"tC/DN2 YOU HAVE 250 SECONDS TO F 

IND THE BOMB":PRINT"OR IT WILL EXPLODE. 

YOUR LOCATION" 

80 PRINT"BEACON WILL GIVE А STRONGER SIG 

NAL AS":;PRINT"YOU. APPROACH THE BOMB. WHE 

N YOU FIND" | 

90 PRINT"IT YOU HAVE 100 SECONDS TO DEFU 

SE IT." 

100 PRINT:PRINT"PRESS ANY KEY TO START G 

AME. ":GETKEYGS$ 

110 81336878: 82336877 

120 A=INT(RND(8)#100): B=INT (RND (8) X100); 

C=INT (RND (8) X100) 

130 PRINT"t4CLR32":S210 

140 PRINT"£HOME3(C/DN3£€C/DN3CC/DN3 CC/DN3 

tCC/DN2CC/DN234C/DN20£C/DN20 1 2 3 4 5 
6 7 8 9 10" 

150 РЕІМТ" {НОМЕ CC/DN3 CC/DN3? CC/DN3 CC/DN3 

(C/DN3CC/DN3CC/DND CC/DNO CC/DN) frre 


160 PRINT" CDN? PAPAA e 


170 PRINT" BOMB DETECTOR{ HOME>" 
180 PRINT" L W H TIME BEACON": PR 
INT | 
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Programming Note—To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary: 


Line 170 10 
Line 210 12 
Line 250 12 
Line 260 4 

Line 290 12 
Line 300 8 

Line 310 12 
Line 350 19 
Line 570 12 
Line 610 12 
Line 620 8 

Line 650 12 
Line 660 17 


ІШІ 


m S 


190 IFA=LTHEN230 | 

200 PRINT"tHOME3C€C/DN3CC/DNOCC/DN3 £CC/DN? 
{C/DN3": INPUT"LENGTH";L | 

210 PRINT"CHOME3CC/DN3£C/DN3 CC/DN3 CC/DN? 
CC/DN3CC/DN3 | n 2 IFL299O0RL4OTHE 
N200 | | 

220 PRINT"CtHOME3£C/DN3 CC/DN3 CC/DN? "STRS ( 
L) 4" и | 
230 IFB=WTHEN270 | 
240 PRINT"CHOME3C€C/DN3CC/DN3CC/DN3CC/DN3 
(CC/DN2" : INPUT"WIDTH"$;W.- | | 

250 PRINT" {HOME} {C/DN3{C/DNIC(C/DN}{C/DN} 
{C/DN3{C/DN} "sIFWoSSORW< OTHE 
N200 | | | 

260 PRINT"tHOME > CC/DN3CC/DN2 CC/DN32 "S 
TRSE(W) +e" " | 

270 ІҒС-НТНЕМЗ10 

280 PRINT" {HOME} {C/DN3{C/DNICC/DNS{C/DN} 
{C/DN} "2 INPUT" HEIGHT "3H 

290 PRINT"t€HOME3£C/DN3£C/DN3CC/DN3 CC/DN? 


{C/DN3{C/DN} ^: IFH>990RH< OTHE 

N200 | 

300 PRINT" {HOME> CC/DN3 CC/DN3 CC/D 
п 8 B . 

N3"STRS(H) + | MORE — 


|| 


П 


| 
ШЇ 


mM 
ANA 
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310 PRINT" {HOME} CC/DN3 CC/DN2 
(C/DN}"S 

320 PRINT" {HOME}{C/DN3{C/DN3{C/DN}{C/DN} 
{C/DN}{C/DN}{C/DN3{C/DN3{C/DN}{C/DN3 ТА 
ВЈ)" " 

330 BE=1E4-(ABS(A-L) «ABS (В-и) *ABS(C-H) ) X 
29 | 
340 J=INT(BE/333.3333+.5):PRINT"(HOME)IC 
/DN3{C/DN3{C/DN3{C/DN3{C/DN3{C/DN}{C/DN? 
CC/DN3CC/DN3 CC/DN2" j TAB(I) "+" 

350 PRINT" {HOME} {C/DN 
+£C/DN}{(C/DN} "BE | 

360 PRINT" {HOME}{C/DN}{C/DN}{C/DN3"$ 

370 IFA=LTHENPRINTTAB (1) "{RVON}X¥{RVOF 3" 


380 IFB-WTHENPRINTTAB (5) " {RVON}X¥CRVOF 3 " 


390 IFCZHTHENPRINTTAB (9) "{RVON} X¥{RVGF 3" 
400 IFA=LANDB=WANDC=HTHEN4SO 

410 S=S+10: IFS<260THENI90 

420 GOSUBSOO 

430 PRINT"THE BOMB WAS AT" :PRINTA3" ығы 


440 END ` 
450 PRINT"CCLR3CC/DN3CC/DN3£C/DN3 CC/DN2 
C/DN3£C/DN3£C/DNJ CC/DN3CC/DN23 
{RVON}BOMB LOCATED{RVOF}" 

460 VSINT(RND(8)X10) +1:N=INT(RND (8) X10) + 
1: М=ІМТ (RN. 8) X10) +1 
470 SLEEP4 | 
480 PRINT"{CLR}YOU HAVE LOCATED THE BOMB 
."!PRINT"{C/DN3}TO DEFUSE IT YOU MUST NOW 
ENTER THE" | 
490 PRINT"CORRECT COMBINATION. EACH PART 

IS":PRINT"BETWEEN 1 AND 10. A CORRECT М 
UMBER IS" 
500 PRINT"INDICATED BY А {RVON}X#{RVOF}. 


910 PRINT"tC/DN3GOOD LUCK. YOU HAVE ONLY 
100 SECONDS" | ! 

520 SLEEPÓ ` 

530 PRINT"CCLR2":2S9210 | 

540 PRINT" LEFT | RIGHT LEFT TIME 
"SPRINT | 

550 IFA=VTHENS?0 

560 PRINT"tHOME3CC/DN? CC/DN32 CC/DN32 CC/DN3? 
CC/DN Y“: INPUT"LEFT"3AÀ 

570 PRINT"CHOME3£C/DN23CC/DN? CC/DN3 CC/DN? 
{C/DN3{C/DN3 "¿+ IFA>1LOORA< 1 THE 

М560 

580 PRINT" {HOME} tC/DN2 CC/DN3 CC/DN2 "A 

590 IFB=NTHEN630 
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600 PRINT" {HOME} {C/DN}{C/DN3}{C/DN3{C/DN} 
{C/DN3 "2 INPUT"RIGHT";B | | 
610 РЕІМТ "НОМЕ СЛОМ CC/DN3 CC/DN3 CC/DN2 


{C/DN}{C/DN} | "г IFB2100RB«41THE 
N560 . 

620 PRINT" {HOME} tCC/DN2 CC/DN2 CC/D 
N3"B | | 


630 ІЕС-МТНЕМФ20 ` 
240 PRINT" {HOME}{C/DN3{C/DN3{C/DN3{C/DN} - 
cc ND ": ІМРОТ "ЕРТ"; С 

650 PRINT" {HOME} (C/ DNY C/ DNY CC / DN) (C/ DN 


LCC/DN2 CC/DN3 ": IFC2100RC«4 1THE 
Nó40 
660 PRINT" {HOME} | {C/DN3¢ 


C/DN3£C/DN3"C 
670 PRINT" {HOME > 


(CC/DN3C/DN3C€C/DN? "S | 
680 PRINT"tHOME3£€C/DN3 CC/DN2 CC/DN2 "5 
690 IFASVTHENPRINTTAB(1) "tRVON33HCCRVOF 2" 


700 IFB-NTHENPRINTTAB(9) "{RVON}¥%{RVOF } * 
710 IFC=MTHENPRINTTAB (18) "{RVONSX¥CRVOF 3 


220 IFA=VANDB=NANDC=MTHEN780 
730 6-5%10:1Ғ5<110ТНЕМ550 

740 GOSUBS8O00 

750 PRINT"THE COMBINATION WAS"V;N;M 

260 PRINT"£C/DN3CONDOLENCES WILL BE SENT 
TO YOUR FAMILY." 

220 END 

780 PRINT"tC/DN3£C/DN2 BOMB DEFUSED" 
790 END 

800 РВІМТ" СЕВ} ":00=15:ВЕМ SOUND EFFECT 
810 FORI=1T022:PRINTTAB(13) "CUHTOXXXXKAB 
OOMXXXX":NEXT —— 

820 SOUND1,2000,1500,2,0,0,3 

830 DO UNTIL V04.2 | 

840 VOL VO:COLORG,3 

850 COLORO, 3:FORJ=1T022: NEXT 

860 COLORO, 8:FORJ=1T022: NEXT 

870 VO=VO0-.1:LOOP 

880 COLORO, 13:COLOR4,4 

890 RETURN 
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Utopia 


As ruler of an island nation, you're beset with important decisions. The goal is prosperity for you and your 
people. You try to increase national wealth, personal wealth, population and natural resources. The computer is 
your aid, giving you up-to-the-minute information and choices, in addition to a contemporary rock motif. Your 
reign can last up to 10 years—if a revolution doesn't force a change. 


Alteration— Change any of the opening val- 
ues in line 20. P is population; M is treasury 
money; F is fish; T is years remaining for your 
reign. 


10 SCNCLR: REM UTOPIA 
20 Р-5000:М-2000000:Ғ-5000:5-10000:Т-10: 

T1210: COLORO, 7: COL ORA, 12: GOSUB 1170 | 
30 PRINT"CCLR324UHT2HELLO, I AM MODEL 818 
82 OF THE" 

40 PRINT"SKILLED ANALYSIS MICRO-COMPUTER 


SO PRINT"DIVISION. YOU MAY CALL ME SAM." 


60 INPUT"4C/DN2PLEASE IDENTIFY YOURSELF 


(МАМЕ) ° ; N$ 

70 PRINT"{CLR}WELCOME TO UTOPIA, "№". " 
80 PRINT"{C/DN3}AS BENIGN RULER OF UTOPIA 
‚ YOU MUST" 

90 PRINT"GUIDE YOUR CITIZENS THROUGH THE 
H 
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Alteration— Change any of the PRINT state- 100 PRINT"DECISIONS OF STATE.":PRINT"(C/ 
ments to personalize the game or change the DN3AS YOUR CONSULTING AID, I WILL PROVID 
theme of the adventure. E" 
110 PRINT"YOU WITH VITAL DATA. YOUR STAT 
US REPORT" 
120 PRINT"WILL BE UPDATED AFTER EACH TRA 
NSACTION. " 
130 PRINT"CC/DN3UTOPIA IS AN ISLAND THAT 
IS LOCATED IN" 
140 PRINT"THE TROPICS WHERE YOU WILL RUL 
E FOR A" 
150 PRINT"MAXIMUM OF TEN YEARS. YOU MUST 
CONTROL" 
160 PRINT"THE USE OF NATURAL RESOURCES W 
ISEL Y. | 
170 PRINT"£C/DN3GOOD LUCK YOUR HIGHNESS. 
" 


180 PRINT"MAY THE МАМЕ OF "N$:PRINT"BE А 
BLESSING ON OUR ISLAND." | 
190 PRINT"{C/DN3HIT ANY KEY TO CONTINUE. 
"  GOSUB1170: GETKEYGS 
200 GOSUB940 
210 FORT=10TOOSTEP-1: GOSUB970 
Alteration—To leave out the music at the start 220 INPUT"WHAT IS YOUR SALARY THIS YEAR" 
of each year of your reign, delete GOSUB 1170 : X: GOSUB1170 
prom tine 220: 230 M=M-X:R=R+X!GOSUB960 ` 
240 IFR»*((RND(G) X3) +1) ¥MTHENGOSUB1050 
250 PRINT"CCLR34RVON3REPORT£€RVOF ) FROM M 
INISTER ОҒ FISH,":PRINT"EMMY YELLOWTAIL. 


260 PRINT"CC/DN3YOUR HIGHNESS THIS IS ІТ 
a H 


270 A=INT(RND(3) X3) +1 

280 IFA=1THENPRINT"ALL IS WELL. THE FISH 

THRIVE. THERE IS" 

290 IFASITHENPRINT"PLENTY TO FEED ALL. ": 

=F +2000: P=P +5000: M=M+10000: GOSUB960 

300 IFA=2THENPRINT"WE NEED MORE BOATS. Т 

HEY COST $10000" 

310 TFA=2THENPRINT"EACH. HOW MANY WILL Y 

ОШ BUY"; : GOSUB73Q:Fz500XX 

320 IFA=3THENPRINT"THE SEALS ARE EATING 

MOST OF THE FISH.":GOSUB?5O0 

330 IFP41000THENGOSUB1050 

340 PRINT"CCLR2": GOSUB960 

350 PRINT" {RVON}REPORT{RVOF} FROM MINIST 

ER OF FARMS, ":PRINT"STEVEN SOIL.{C/DN}" 

360 X=INT (RND(32X3) +1 

370 IFX=17THENGOSUB4SO 

380 IFXS2THENGOSUB49O 

390 IFXS3THENGOSUBS55O | 
MORE — 


———————M———— € 
73 


Utopia 


400 IFP-2»8000ANDM-28000000ANDF »8000ANDR > 
15900000THEN420 - 

410 605089650: МЕХТТ 

420 FORXZ1TO10: PRINT" {CLR} НОМЕ} CC/DN3": 
SLEEP1 | 

430 РЕІМТТАВ(16) "{RVON} |. . tRVOF 3" 


440 PRINTTAB(16) "{RVON} YOU UIN (RVOF 2" 
450 PRINTTAB(16) "{RVON} {RVOF 1" 


460 SLEEP1: NEXT 

470 PRINT" {C/DNIC(C/DN3 "NS" IS MADE RULER 
FOR LIFE! {C/DN}{C/DN}":GOSUB1170: END 

480 PRINT"ALL CROPS ARE DOING WELL. : PKP 
+2000: М=М+100000: RETURN 

490 PRINT"EXCESS SUGAR САМЕ HAS BEEN SOL 
D FOR" 

300 РКІМТ"%1,000,000 WHAT PERCENTAGE SHO 

ULD GO" | 

510 INPUT"INTO YOUR POCKET (0-100)";X 

920 IFX«OO0RA?2100THENS10 

530 М-М%1Е6-(1Е6%Х/100):К- R*1E6XX/100 
340 RETURN 

550 PRINT"HEAVY FLOODS FROM А ТҮРНООМ НА 

VE WIPED" 

560 PRINT"OUT MANY CROPS WHAT WILL YOU D 

02" 

570 PRINT"A) REPLANT NEW CROPS.":PRINT"B 
) LIVE OFF STORED GRAIN" | 


580 PRINT"C) IMPORT CROPS. {C/DN}" 


390 INPUTCS: IFCS4"A"ORCS2"C"THENS9O0 
600 IFCS$-"A"THENMZM-INT(200000XRND (8) ) :P 


zP-INT(100XRND(8)) 


610 IFC#="B"THENP=P-INT (2000¥RND(8) ) : М=М 
-INT (RND(8)#10000) | 
620 IFCS="C"THENM=M-INT (RND (3) X400000) 

630 IFM<OTHENM=0: GOSUB1050 

640 IFP< LOOTHENP=100 

650 RETURN | 

660 FORX-ITOS:PRINT"4CLR3 CC/DN3 °° SLEEP 
670 PRINTTAB(10) "DEATH TO "N$"!11" 

680 SLEEP1:NEXT 

690 IZI*INT(RND(4) XP/2) : R2INT (R#RND (3) ) 


700 IFI2sPX.8THENPRINT"YOU HAVE BEEN. OVE 


RTHROWN.,":PRINT"YOU LOSE. "SEND 

710 IFRND(8)4.7THENPRINT"YOU HAVE MAINTA 
INED POWER.{C/DN3" RETURN - 

720 PRINT"YOU HAVE RULED CRUELLY AND ARE 
BANISHED":PRINT"FROM UTOPIA. "SEND 

730 INPUTX: IFX=OTHENGOSUB1050 

740 M=M-X¥10000: RETURN 

750 PRINT"tC/DN3UHAT WILL YOU DO?" 

760 PRINT"A) KILL THE SEALS":PRINT"B) GI 


VE UP FISHING" 


——— ÓÁ—— AR ——— И ''——— M — — €— ———————— '——————— ———— 
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——— UU Da Aa A 1 1n ай 


Programming Tip—This program uses а 
“window” technique to print messages. The 
status report is due to lines 970-1040. In line 
1030, the new top of the screen is set with 
ESC-T sequence CHR$(27) !! T !! . This lets the 
program write in the bottom part of the screen 
while the status report is unchanged. When it is 
time to update, the PRINT statement in line 970 
cancels the window. 


770 PRINT"C) LET NATURE HANDLE IT": PRINT 
"D) РАМІСІС/ОМ:" 

780 INPUTAS: IFAS< "A" ORAS>"D" THEN?/SO Ž 

790 IFAS="D"THENPRINT"{C/DN3IT DIDN'T HE 
LP. 6070750 

800 IFA$z"A*THENIZI*INT((1OOOXRND(2)) 

810 IFAS="C"THENI= I*INT(GOOXRND (7) ): Ғ-Ғ- 
INT (RND(4)3X 3000) 

820 IFF<OTHENF=0 

830 IFAS4»"B'"THENRETURN ` 

840 PRINT"tC/DN3HOW WILL YOU FEED THE PE 
OPLE?" 

850 PRINT"A) LET THEM EAT CAKE." :PRINT"B 
) BUY THEM IMPORTED FOOD." 

860 PRINT"C) GROW MORE FOOD." 

870 INPUTBS: IFBS< "A" ORBS>"C"THENS70 

880 ІРҒВФ= "А" THENGOSUBIOSO 

890 IFBS="B" THENM=M-P*#250 

900 IFBS="C" THENM=M-P¥200: P=INT (РХ. 95) 
910 IFM<OTHENM=0: GOSUB10S50 

920 RETURN 

930 REM SET UP STATUS REPORT 

940 PRINT" {CLR} {HOME} " : FORX=1024T01063:P 
OKEX, 90: POKEX+400, 90: NEXT 

950 FORX=1064T01424STEP4O: POKEX,90: POKEX 


+39, 90: NEXT: GOTO?70 


960 PRINT"{C/DN3HIT ANY KEY TO CONTINUE. 
"“СЕТКЕҮӨФ 

970 PRINT" {HOME} {HOME} "ТАВ (4) "CC/DN3 КЧО 
N3STATUS REPORT: ISLAND OF UTOPIA" 

980 PRINTTAB(10) "€{C/DN3POPULATION: "P^1C/ 
LF3 i 

990 PRINTTAB(12) "TREASURY: "M"{C/LF} j 
1000 PRINTTAB(16) "FISH: "F°{C/LF? н 
1010 PRINTTAB(S) "PERSONAL WEALTH: "R"1C/L 
Е} I | | 


. 1020 РКІМТТАВ(16) "YEAR: "10-T 


1030 PRINTTAB(10) "INSURGENTS: "I"(C/LF 3 
PSPRINT"{C/DN3{(C/DN} "CHRS$S (27) "T" 

1040 PRINT"tC/DN2£4CLR32 "2 RETURN 

1050 PRINT"tCLR2THE INSURGENTS LED BY TH 

E GREAT" 

1060 PRINT"CATHY COURAGEOUS HAVE REBELLE 

D.” 

1070 PRINT" {C/DN3WHAT WILL YOU DO?" 


1080 PRINT"A) GO INTO EXILE.":PRINT"B) T 


URN OVER ALL CASH":PRINT"C) RESIST” 
1090 INPUTD£$:IFD£$4'"A"ORDS$»*C"THEN1090 
1100 IFD$z"A"THEN1150 
1110 IFD$z"B"THENMSM*R:KsR:Rz0O:IFK«4. 1ХЕТ 
HENGOSUBóó60 

MORE > 
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1120 IFD$-"C"THENGOSUB6ó60 

1130 ISITINT (RND (8) 5/5) 

1140 RETURN 

1150 ІҒАФ-"А"ТНЕМРКІМТ"ТНЕ SEALS BLOCK Y 


OUR ESCAPE. " : END 


1160 PRINT"YOU ESCAPE BUT YOU STILL LOSE 
THE GAME." 

1170 REM "A LITTLE ROCK & ROLL = 

1180 TEMPO 12 

1190 PLAY "V104TSUSXO":REM V1sGUITAR 
1200 PLAY "V204TSUSXO":REM V2zGUITAR 
1210 PLAY "V3O4T3USXQ":REM V3=DRUN 

1220 A$-"USO02HBV1OSIRV2011GIGUV103IDIGV20 
1IGIGV1OSIDVSOSHDV1OSIBV2011GIGV1O0S3IAIGV 
2011GIGV103IA" 

1230 B$z2"UV3O02HGV1O03IRV201IEIEVi1OSIBIHFUVU2 
OIIEIEV1OSIB V302HBU1O0SIGV2O01IEIEV1OS3ISF 
IEV2O01IEIEV1OSIBF" | 

1240 C$z"V3O03.HEV1OSIRV2O02ICICU1031GO4ID 

У2011С1СУ10210041СУ2021С1СУ10310У3036ЕУІ 
OSIBV2O2ICICV103IA" 

1250 D*$="V303, HHEV1OSIRVZO2IDIDV103IAO041 
EV202IDIDV1O3IAO4IDV2O02IDIDV1OSIAV3O2G8F 
V1O4ICV2O02IDIDV1O04ID" 

1260 PLAYAS: PLAYAS: PLAYBS: PLAYBS: PLAYCS: 
PLAYDS: PLAYAS 

1270 RETURN 


Tic-Tac-Toe 


Tic-Tac-Toe 


This is a classic game of strategy for two players. The computer provides the playing board and acts as 
master of ceremonies. It checks the progress of the game after each move and either announces the winner or 


determines whether the game is a tie. 


Alteration—Change the second number in the 
COLOR statements of line 30 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 


E PLAYING" 


10 REM TIC-TAC-TOE 

20 DIMM(9),K(9),T(7,2) 

30 COLORO,1:COLOR4,5 

40 FORWZ1TO9:READM(W) : NEXTW | 

50 FORWzOTO?7:FORJZOTO2:READT (и, Ј) : NEXTJ, 


20 FORWS1TO9:K(W)2O:NEXTU | 
70 DATA1319,1323,1327,1479,1483,1487,163 
9,1643, 1647 

80 DaT A1, 2, 3, 4, 8, 6, 7,8, 9 1, 4, 7, 2, 8,8, 3, 6 
„9, 1,8, 9, 3,87 | 
90 PRINT"tCLR?tWHT2HELLO. YOU ARE ABOUT 
TO PLAY TIC-TAC-TOE" 

100 INPUT"IC/DNJWHO ARE YOU"; АФ: PRINT: PR 
INT'£C/DN2"A$", YOU MAY PLAY WITH А FRIE 
ND. " 

110 PRINT"I WILL ANNOUNCE THE GAME.":INP 
UT"£C/DN2uHO DO YOU WANT TO PLAY WITH";B 
$ | 

120 PRINT"{CLR}"AS" AND "BS", YOU CAN TA 
KE " : 

130 PRINT"TURNS BY ENTERING X OR O IN TH 


MORE — 
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Programming Note—To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 


Line 300 3, 1, 3, 1 
Line 310 11 

Line 320 3, 1, 3, 1 
Line 330 11 

Line 340 3, 1, 3, 1 

. Line 380 38 

Line 420 38 
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140 PRINT"GRID. EACH PLAYER MAY ENTER ON 

CE PER" 

150 PRINT"TURN. THE PLAYER WHO GETS THRE 

E IN A":PRINT"ROW WINS." 

160 PRINT"A ROW MAY BE HORIZONTAL, VERTI 

CAL OR": PRINT"DIAGONAL." 

120 PRINT"{C/DN}THE FIRST PLAYER USES AN 
x š " 

180 PRINT"THE SECOND PLAYER USES AN 0." 
190 PRINT"{C/DN3£C/DN3{C/DN3<<<<< PRESS 
ANY KEY TO CONTINUE >>>>>":3GETKEYQS 

200 PRINT"{CLRIWHEN YOU SEE THE SCREEN, 

YOU WILL SEE" 

210 PRINT "NUMBERS IN THE BOXES WHERE THE 
LETTERS" 

220 PRINT"WILL GO. TO PLACE YOUR LETTER, 
SIMPLY" 

230 PRINT"TYPE THE NUMBER LOCATED WHERE 

YOU WANT" | 

240 PRINT"YOUR LETTER TO GO, AND PRESS ( 

RVON3RETURNECRVOF J. 

250 PRINT"tC/DN3£C/DN2WHO WILL GO FIRST, 
n AS п OR н BS ; 

260 INPUTZS: IFZS< »ASANDZ$4»B$STHEN250 


270 IFZ$-ASTHENF$-A$: 5$-B$:GOTO290 


280 5%=АФ: РФ=ВФ 


290 PRINT "{CLR}{C/DN}{C/DN3{C/DN3{C/DN}¢ 


C/DN>" 

300 FORW=1TO3: PRINTTAB(14) * {RVON} {RV 
ОЕ? (RVON? CRVOF 3": NEXTW 

310 PRINTTAB(t14)"£RVON3J3 {RVOF 3 
" f | 

320 FORWZITOS:PRINTTAB(14)" {RVON} {RV 
OF 3 C RON] CRVOF У": NEXTW 

330 PRINTTAB(t14) "{RVON} {RVOF 3 
340 FORW=1T03:PRINTTAB(14) " (RVON? CRV 


ОЕ? (RVON? {RVOFS"2NEXTW — 
350 FORWZ1TO9:POKEM(W),Wt*48: NEXTW 
360 T=0:FL=0 
370 PRINT" {HOMES "FS", ENTER YOUR MOVE";: 
INPUTMS 
380 PRINT"tHOME 
B 


390 M=VAL (MS) : IFM>20RK (M) < >OTHEN370 
400 POKEM(M),24:K(M)=M:T=T+1:G0SUB490:IF 
FL=1THEN460 
410 PRINT" {НОМЕ} "5%", ENTER YOUR MOVE";: 
INPUTMS 
420 PRINT" {НОМЕ 3 

B 


430 M=VAL (M$); IFM>9ORK (M) < 2OTHEN410 


Tic-Tac-Toe 


Alteration— Add introductory or victory mus- 
ic by taking a music routine from another game 
in this book. Insert it at the beginning of the 
game or at the end by extending the subroutine 
of line 540. 


440 РОКЕМ (М), 15: K CH) M: TZT*1: GOSUBA90: IF 
ҒІ.-1ТНЕМ460 

450 GOTO370 | 

460 PRINT"CHOME2"Ws$:INPUT"CC/DNJPLAY AGA 
IN"; Q$ | 

470 IFLEFTS (GS, 1)= "Y" THENGO 


480 END 


490 FORW=0TO?: A=PEEK(M(T(W,0))) : B=PEEK(M . 
(T(W,1))) °C=PEEK(M(T(W, 2))) 

300. IFA-24ANDB-24ANDC-24THENWS-F $+" WINS 
!" tFLz1: 60508540 

510 ITFA=1SANDB=15ANDC=1S5THENWS=SS+" WINS 
1 FL=1:GOSUBS40 

520 IFFL=OANDT=9THENFL=1:WS="TIE GAME!" 
330 NEXTW:RETURN 

540 FORIZOTO2:POKEM(T(W,1)), PEEK (МТСИ, I 


32) +128: NEXTI: RETURN 
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Dice Race 


Here is a dice-simulation game using a computer-generated pair of dice. Two players take turns "rolling" 
the dice. Each player uses die values to move two cars toward a finish line. The first player with both cars over 
the line wins. | 


10 REM DICE RACE 

20 DIMD(18):PRINT"CCLR2" ` 

30 FORA=1TOS: READRS(X) : NEXT 

40 FORK=1TO1S: READD(X) : NEXT: GOSUBÓG10 

50 FORX=1T06:D$(X)="{RVON}" : NEXT 

60 FORAZi1TOÓ:FORY-OTO2 

70 DSS (X) =0% (х) TRS(DOGXA*TY-2)) t£" CC/DN3(C/ 

LFJIICC/LFICTC/LF У" 

80 NEXTY,X 

90 COLORO, 1: PRINTTAB(1S3)"CRVON32 CUHT 2 DICE 
RACERS" 

100 PRINT"CC/DN3THIS GAME IS FOR TWO PLA 
YERS." | 
110 INPUT"{C/DNIPLAYER ONE'S МАМЕ";М1% 
120 INPUT"PLAYER TWO'S МАМЕ" М2% 

130 PRINT"CC/DN32 YOU EACH HAVE TWO CARS Т 
0 DRIVE BY" | | 

140 PRINT"MOVING THEM ACCORDING TO THE T 
HROW" 

150 PRINT"OF THE DICE. YOU CAN MOVE ONE 
CAR THE" | 
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Programming Note—To help you with the 
number of times to press the spacebar in some 


program lines, here is a helpful summary: 


Line 290 6 
Line 300 6 
Line 490 12 


160 PRINT"VALUE OF BOTH DICE OR SPLIT TH 

E DICE" 

170 PRINT"AND MOVE BOTH CARS." 

180 PRINT"{C/DN3YOU CANNOT MOVE MORE THA 

М THE VALUE OF": PRINT“ THE DICE." 

190 PRINT"{C/DN3THE FIRST PLAYER TO HAVE 
BOTH CARS" 

200 PRINT"ACROSS THE FINISH LINE WINS. I 

F BOTH" | 

210 PRINT"PLAYERS GET ACROSS IN THE SAME 
ROUND, " 

220 PRINT" THE ONE WHOSE CARS ARE FARTHES 

T WINS." 

230 PRINT"CC/DN3AFTER THE DICE ROLL, YOU 
WILL BE ASKED" 

240 PRINT"HOW MUCH YOU WANT TO MOVE YOUR 
FIRST" | 

250 PRINT"CAR. YOU MUST ENTER ONE OF THE 
DIE OR" | 

260 PRINT"THE SUM OF THE DICE. THE COMPU 

TER WILL" 

270 PRINT"CALCULATE THE MOVE FOR CAR TWO 
н 


280 PRINT"£C/DNJHIT ANY KEY TO START":GE 

TKEYQS 

290 Ris="{RVON} CGRY23 {WHT3 CGRY23 
a 


300 R2S="{RVON} (GRY23 5 

310 РЕІМТ" {НОМЕ {НОМЕ {СІР} "ТАВ (14) 5 R1S$ 

320 PRINTTAB(14)"ORVONJCGRY23XF-I-N-I-S- 

HX п . | 

330 FORXZ1TO11:PRINTTAB(14) RIS: PRINTTAB 

(14) 35 RAS: NEXT 

340 IFLEN (NIS) >6THENNIS=LEFTS(N1i&, 6) 

350 IFLEN(N2$) >6THENN2S=LEFTS (М2%, 6) 

360 PRINT" {WHT} TAB (14) МІФ; TAB (21) N2$" CH 

ОМЕ 3" 

370 FORX=1T04: SPRITEX, 1: NEXT 

380 WINDOWO,0,13,23 

390 FORP=1TO2:PRINT®{C/DN3 {HOMES (C/DN CW 

HT3PLAYER^P 

400 DI=INT(RND(1)%¥6) 11: D2=INT(RND(1)¥6) + 

1 | 

410 CHARI, 1, 4, DS (D1) : HAR1,1,9?,D$(D2) 

420 DDi1*D2:PRINT"£C/DN3CC/DN3HOW MANY CC 

/DN34€C/DN32" | 

430 PRINT"{C/UP3CAR WH"PX2-1; : INPUT" £ 

C/LF3CC/LF3CC/LF32)C/LF32 "50$ | 

440 Gi1-UVAL(G$):IFG142DANDG1«452DIANDG1«45D2 

AND@1< >ОТНЕМ4ЗО 

450 Q2-D-G1:M((CPX2-1)291:MCPX2) -Ө2:МЕХТР ` 
MORE — 
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Alteration—To move the cars farther with 
each turn (to shorten the game), change line 


460 to 460 FOR X=1 TO 4: MOVSPR X<+, 


—4*M(X): NEXT 


Programming Note—Make the graphic char- 
acter in line 580 by typing SHIFT-Q. 


Alteration—Change the color of the cars by 
changing the third number in each SPRITE 


statement in line 710. For example, 710 


SPRITE 1,0,3: etc. will change Sprite 1 to red. 
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. 460 FORX-1TO4: MOVSPRA, tO, -2XM(X) : NEXT | 


470 FORX=1TOSSTEP2: IFRSPPOS (X, 1) < GBANDRS 

PPOS (X+1,1)<43THENF=1 

480 NEXT: IFF< >i THENS90: ELSEF=0 | 

490 PRINT" {HOME} ":FORX-ITO20:PRINT" 
"“МЕХТХ 

500 P1-RSPPOS(1,1)*RSPPOS(2,1) 

210 P2-RSPPOS (3, 1) *RSPPOS(4, 1) 

320 IFPI=P2THENPRINTNIS" AND "N2$" TIED! 

"+ GOTOS50 | 

530 IFP1«4P2THENPRINTN1$" WINS!":G0T0550 

540 PRINTNZ$" WINS!". 

350 PRINT"tC/DN2 CC/DN3PLAY AGAIN": PRINT" 

(Y/N)?" ` | 

360 GETKEYGS$:IFGS$-"Y"THENGOSUB720:GOTOS31 

О | 

520 IFQS<>"N" THENS60: ELSEEND 

580 DATA" "8 "," & "," „ а" 

390 DATA1,3,1,4,1,2,4,3,2,5,1,5,5,3,5,5, 


200 REM DRAW CAR | 
610 COLOR4, 10:GRAPHIC1, 1 

620 FORXS1TO4:CIRCLE1,12,14,3,4 

630 PAINT1,12,14:DRAW1,16,8 TO 16,15 
540 В0Х1,10,3,14,8,0,1. 

550 B0X1,8,4,16,5,0,1 

560 BOX1,6,14,8,17,0,1 

520 BOX1,16,14,18,17,0,1. 

280 CHARi,1,1,CHR$(X*48),1 

690 SSHAPEAS,1,1,24,22: SPRSAVAS, X 

700 SCNCLR:NEXT 

710 SPRITE1,0,10:SPRITE2,0,14: SPRITE3,0, 
7:SPRITE4,0,8 

720 FORX-1TO4:MOVSPRX, 115*25XX, 220: NEXT 
730 GRAPHICO, 1: RETURN 


Alien 


Alien 


Here's your chance to be the alien! From your space capsule, watch the earth come into view. Choose your 
options carefully. Will you invade or come in peace? | 


Alteration— Try developing a scrolling in- 
troduction to the game in lines prior to line 20. 
Borrow the screen-scrolling techniques from 
Space Maneuvers. 


Programming Note—To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
. Spaces, the number of spaces in each block is 
given, separated by a comma: 


Line 80 3,8 
Line 760 4,4 


10 REM ALIEN 

20 PL=0:GOSUBS10: CL&-" {HOME} £C/DN3CC/DN3 | 
"+CHRS (27) *"GCC/DNI" *CHRS (27) *"BGCC/UP 3"; 
DN£$z-"CHOME3CC/DN3CC/DN3 CC/DN32 CC/DN2" | 
ЗО FORX=1T04: READGS(X) NEXT 


40 FORK=1T04: READHS(X) š NEXT 


50 FORX=1T04: READOS$ (X) : NEXT 
60 PRINT"CC/DN23 CHOME3 CUHT 3 COMMUNICATION: 


70 PRINT"CC/DN3CC/DN3 CC/DN3 CC/DN3 CUHT FRO 
CKET ORIENTATION:" 


80 PRINT" {RVON} F{RVOF} SPEED: 
n ; 


90 PRINT" {RVON} {RED} (WHT? UCRVOF> W 
ARP DRIVE: 
100 PRINT" {RVON} {RED} (WHT? ECRVOF? AL 
ERT STATUS:" 


MORE — 


Hf ЖО >. 
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Alteration—Change the likelihood of Earth 
surrendering by changing .95 in line 450 to a 
different value. A smaller number means a 
greater chance of surrender. 


110 PRINT" (RVON) {RED} {WHT} LXRVOF 2" 
120 PRINTDNS$:FORX-1TO4:PRINTTAB(20);G$(X 
) : NEXT 

130 PRINTCLS"{WHTSEARTH ON MONITOR. " 

140 SLEEPS 

150 PRINTCLS"A-INVADE B-FLEE C-PEACE" 
160 PRINT"WHY DO YOU COME (LETTER)?" 

170 GETKEYCS: ІРСФ="А"ТНЕМ210 ` 

180 ІҒС%-"В"ТНЕМ540 

190 IFCS="C"THEN?750 

200 6070170 

210 PRINTCLS"WOULD YOU RECONSIDER (Y/N)? 


220 СЕТКЕҮ8%: ІҒӨФ-"Ү%ТНЕМ150: ELSEIFQS< >" 
N"THEN220 
230 PRINTCLS"WE MUST DEFEND. OURSELVES!” 


240 SOUNDI, 20000, 400, 0, 10000, 350 


250 PRINTDN$:PRINTTAB(20) "CC/DN3CC/DNXCC 
/DN}{RVON}{RED} {WHT}RED ALERT!{RED} ( 
WHT} (RVOF 3" 

260 SLEEPS: SOUND1, 8000, 300, 2, 5000, 1200 
270 PRINTCL$"THEY ARE FIRING!" 

280 COLOR4,3:SLEEP3: COLOR4, 1 

290 PRINTCL$"S-SHIELDS UP OR F-FLEE ?" 
300 GETKEYG$: IFG$z"F'"THENS40:ELSEIFGS(?" 
S" THEN300 

310 8-841 | 

320 IFRND(1)<.5ANDS>3THENSOO 

330 PRINTCL$"SHIELD INTACT":SLEEP3 

340 PRINTCLS"A-ATTACK  B-FLEE С-РЕАСЕ" 
350 PRINT"WHAT NOW (LETTER) 2" 

360 GETKEYGS$:IFGS$z"A'"THEN40O 

370 IFG$z"B"THEN540 

380 IFG$-"C'"THEN750 

390 GOTO360  — 

400 PRINTCL#: INPUT"WHICH СІТҮ" N$ 

410 A=RND(1) 

420 IFAC. STHENPRINTCLS"ATTACK FAILED":GO 
T0440  . 

430 PRINTCL$;N$" DESTROYED! " 

440 SLEEP3 


450 IFA>.95THEN SCNCLR: GRAPHICO: PRINT" CH 


OME}{CLRIEARTH SURRENDERS! YOU WIN! ":STO 
P | | 
460 ІҒА>.ОЗТНЕМ2320 

470 GRAPHICO:PRINT"CHOME3CCLR3I CANNOT L 
ET YOU KILL INNOCENTS!" 

480 PRINT"YOUR LIFE SUPPORT WAS TURNED O 
FF.":PRINT"YOU LOSE!” 

490 STOP 

500 GOSUB770: GRAPHICO: PRINT" CHOME 3 C CLR 3 Y 
OUR SHIELDS DID NOT HOLD OUT!" 


Alteration—Change the likelihood of hitting a 
star during Warp Out by changing .75 in line 
680 to a different value. A smaller number 
means you are more likely to hit one. 


Programming Note—Make the graphic char- 
acter in line 870 by typing SHIFT-Z. 


Programming Note—Make the graphic 
characters in line 890 by typing SHIFT-A, 
SHIFT-X, £, SHIFT-W (twice) and SHIFT-S. 


Alien 


510 PRINTTAB (11); XN YOU LOSE! Xxx" 
520 STOP | | 

530 REM HYPERSPACE 

540 PRINTCL$:B0X0,2,11,99,99,0,1 

550 PRINTCL&" СЫНТЗЕМТЕВ x COORDINATE"; : 
NPUTXS 

560 INPUT"ENTER Y COORDINATE"; r$ 

570 PRINTCLS"PRESS 'W' TO WARP OUT" 
580 GETKEYG$:IFGS$»"UW"THENSSO 


. 890 PRINTDN$:FORXZ1TO4:PRINTTAB(20) 3 HS CA 


) : NEXT 
600 FORX=2TO99STEP4: DRAW2,49,44 TO X,11: 
NEXT 

810 FORY=11TO99STEP4: DRAW2,49,44 TO 99,Ү 
: NEXT 

520 FORX-99TO2STEP-4: DRAW2, 49, 44 TO X,99 
s NEXT 

530 FORY=99TOLISTEP-4: DRAW2, 49,44 TO 2,Y 
: NEXT 

640 FORW=0TO9: FORT=1T0200: NEXTT | 
650 PRINTCLS" {WHT} WARP STRG (И) : NEXTW 
560 FORW=9TOOSTEP-1:FORT=1T0200: NEXTT 
670 PRINTCLS" {WHT} WARP "STRS(W) SNEXTW 

680 IFRND(1i) >. 75THEN730 

590 PLs1:B0X0,2,11,99,99,0,1: GOSUB930 
700 PRINTDNS:FORX-1TO4:PRINTTAB(20) ; 0 (X 
) NEXT 

210 PRINTCL®"{WHT}OMEGA ON MONITOR. " 

720 PRINT*"WELCOME TO OMEGA 5... ^ SAFE E 
SCAPE!":SLEEP3:STOP 

730 GOSUB770 

740 GRAPHICO:PRINT"{HOME}{CLR}YOU HIT А 
STAR! YOU LOSE! ":SLEEP3:STOP | 
750 PRINTCLS"WELCOME TO PLANET EARTH." 
760 PRINT"(GRN)(RVON) (UHT2YOU WIN! !¢ 
GRN} „:; SLEEP3:STOP | 

770 SCNCLR:PRINT"3XXDESTROYED333" 

780 SOUND1,20000,1000,2,20000,0,3 

790 SLEEP1: DOWHILEV20: V-V-.4:LOOP 

800 RETURN 

810 REM GRAPHIC DISPLAY 

820 REM SET UP CONTROL PANEL 

830 WINDOWO, 13,39, 23 

840 COLOR O,1:COLOR4, 1: COLOR1,7 

850 COLOR 2,2:COLOR3, 10: GRAPHIC4, 1, 13 
860 COLORS3,14:FORX-28TOS4STEP2 

870 CHAR3,X,6, "Ф" : МЕХТ: COLOR3,5 

880 B0X2,110,18,140,40:B0X2,108,16,142,4 


890 COLOR2,11: CHAR2,28,3,"4^£009" : COLOR2 
| MORE — 
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р Note—Make the graphic char- 


acter in line 900 by typing COMMODORE-D. 


900 FORX-28T034:FORYs8TO011:Z-RND(1)X1542 
: COLOR3,Z: CHAR3,X, Y, : MEN TV, Х 
910 COLOR2,8:B0X2,112,65,141,97: COLOR2,2 


220 REM DRAW EARTH 
230 COLORS, 10: IFPLZiTHENCOLORS3, 13: COLOR1 


410 


940 FORASITO20:RASRND(1)X9724*2: RY=RND(1)% 


88711: DRAW2, RX,RY: NEXT 

950 CIRCLE 1,50,60,17,23:PAINT1,50,50 
960 CIRCLE 2,50,60,17,23 

970 CIRCLE 2,50,60,17,23 

980 CIRCLE 2,50,33,5,8,135,225 

990 PAINT 2,50,38 


1000 CIRCLE 2,50,87,5,8,315,45 

1010 PAINT 2,50,80 

1020 BOX 2,1,10,100,100:B0X2,102,10,150, 
100 | 

1030 IFPL=1THENCOLOR1,10:COLOR2,2: COLORS 
413 | 

1040 DRAW 3,51,44 TO 60,43 TO 61,59 TO 5 
9,59 TO 59,62 u 

1050 DRAW 3, 60, 63 TO 63,66 TO 66,66 ТО 6 
3,75 TO 59,71 

1060 DRAW 3,59,70 TO60,68 TO 60,66 TO 55 
262 . | 

1070 DRAW 3,54,62 TO 53,62 TO 53,65: DRAW 


3,52,62 TO 50,59 


1080 
2,49 
1090 
3,43 
1100 


DRAW 3,50,58 TO 50,55 TO 45,49 TO 4 
TO 41,51 TO 39,49 

DRAW 3,43,49 TO 41,46 TO 41,45 TO 4 
TO 44,43 TO 46,46 TO 51,44 
PAINT 3,55,55 


1110 DRAW 3, 40, 63 TO 37,66 TO 36,627 
1120 IFPL-OTHENRETURN ! 

1130 REM DRAW OMEGA PLANET 

1140 DRAW3,35,65 TO 37,54 TO 39,51 TO 42 


33 TO 47,48 TO 55,47 


1150 


DRAW3,55,47 TO 52,53 TO 60,63 TO 52 


,66 TO 44,62 TO 39,68 TO 35,65 


1160 


PAINT3,40,60: DRAW3, 64, 717057, 757047 


787046, 75704, S3, 737064, 71 


1170 


1180 


1190 
1200 
1210 


GREEN 


1220 


PAINT3,50,76 
COLOR3,8:CIRCLE3,80,35,5,7 
CIRCLE2,80,35,6,8:PAINT3,80,35 
RETURN 
DATA"EARTH" , "SUBLIGHT", 


"OFF", "{GRN} 


—— SYSTEM", "HYPERSPACE", "ON 


„ "{YELO}YELLOW a 


1230 


DATA"OMEGA SYSTEM","SUBLIGHT °, "OF 


Е", "{GRN3GREEN a 


. —— — 
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Shoot The Rapids 


Shoot The Rapids 


Journey down a winding river in your kayak. The farther you go, the more treacherous the river. This 
fast-paced game requires concentration and skill. Use a joystick or the « and > keys (unshifted) to paddle 
safely down the raging river. You'll hear a beep each time the river narrows. 

If you crash, your score is displayed along with commentary. Press any key to play again or RUN/STOP to 
quit. | 
10 REM SHOOT RAPIDS 
20 SCNCLR | NE 
Alteration—For a shorter, and quieter, ver- 30 TEMPO 16:БЕМ WALTZ IN C BY CARCASSI 
sion, leave out the introductory music of lines 40 PLAY "Vi1O4ATS5USXO":REM V1zGUITAR ` 
ber to жне але Ші рігу Ше same. mem | 50 PLAY "V204TSUBXO":REM V2-GUITAR 
GOSUB and GOTO statements still wok. ee s S Li MR 
* 70 АФ-"У1030602.НС V2O04IRIEICIE 10366" 
SO B$-"U103.HG У204ІКТЕІСІЕ V10306G" 
90 C$zs"V103.HD V2O04IRIFIBIF 10366" 


MORE | 
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— . — 


Programming Note The blank part of line 
190 is equal to 9 spaces. 


100 D$-"V102.HG V2O4IRIFIBIF Vi0O3GG" 
110 ЕФ-"/103.НС V204IRIEICIE V1030G" 
120 FS="V102.HA V204IRIEICIE V103GA" 
130 GS$="V103.HD V204IRI#FICI#F V1030A" 
140 H$2"V102HGV204HGVSOS3HPB" 

150 PLAY A$:PLAY BS: PLAY C$: PLAY D$ 
160 PLAY E$:PLAY F$: PLAY G$: PLAY H$ 
170 COLORO, 2:COLOR4,4:VOLi5 


180 SCB="{HOMEF{C/DN}"+CHRS(27) *"I" 


190 RS="{BLUE} {RVON} "2 №100: КҮ= 
i58:LL22 | | 
200 KS2212:RT244:LT247:Dz0:Uz0:A-2.4: BS. E 


210 1=1924:10=40:С0=39: BLz160: RZ16:UL-228 


220 PRINT"t€CLR3"TAB((LO)"CRED3 CRVON2 SHOOT 
THE RAPIDS!!!" 


230 PRINT"{C/DN3{C/DN3YOU ARE ABOUT TO S 


HOOT THE RAPIDS IN":PRINT"YOUR KAYAK." 

240 PRINT"{C/DN}CONTROL YOUR PADDLES WIT 
H THE COMMA AND" 

250 PRINT"PERIOD KEYS--THINK OF THEM AS 
€ AND >." 

250 PRINT"{C/DN}SHOOT A FAST OR A SLOW R 
IVER (F/S)? "3 

270 GETKEYG$: IFS C DEA > "5" THEN270: 

ELSEPRINT@S$: IFQ@$="$" THENV=1 

280 PRINT"{C/DN}KEEP BETWEEN THE RIVERBA 
NKS AND BE" 

290 PRINT"CAREFUL--WHEN THE BEEP SOUNDS, 
THE": PRINT RIVER NARROWS!" 

300 PRINT"{C/DN3HIT ANY KEY TO START":GE 
TKEYOS 

310 REM PRINT SCREEN 

320 PRINT"{CLR}":COLORO, 14 

330 FORX-1TO23:PRINTTAB(RND(1)XCO) " CGRN2 

K: PRINT u SC / UPD "ТАВ (R) RS: NEXT 

340 SOUND1,0,0:SOUND1, 30000, 4000, 2, 30000 
‚0,3 

350 REM START LOOP 

360 IFVTHENFORI=1T0200!: NEXT 

370 KsRND(1):IFK^ATHEN4OO 

380 IFR>LLTHENR=R-1 

390 6070420 

400 IFK<BTHEN420 

410 IFR<ULTHENR=R+1 | | 

420 PRINTSC$; TAB(RND(1)XCO) "{GRN}%" 

430 PRINT"{C/UP} "TAB(R) RS: POKEL+LD, BL 
440 P=PEEK (KS) : IFP=LTTHENL=L-1!:GOTO460 
450 IFP=RTTHENL=L+1 

460 IFPEEK(L)<>BLTHENS20 ` | 

470 POKEL,KY:D-D*1: IFD>HSTHENHS=D 


480 PRINT'"tHOMEJ£BLK3SCORE:"D"(C/LF3 HI 


GH: "HS"(C/LF? " 


—— ——————————————————————————————À———————'Á'ÉOÉOo'OÁÉÓO € CO MOOUM) -X.OIALL)Oá.,.L/PECLLCOOGGELLALEUILLARIÁLELLLALGBDIAGAda4üSAIIGGBELLLUDLGLOon P(ceti1Í  €í'É L É LAAA"|("|"""— — 


88 


Shoot The Rapids 


Alteration—To change the sound of the beep, 
experiment with numerical values in the 
SOUND2 statement of line 500. 


Alteration— Change the commentary in lines 
570 to 600 to personalize them. 


490 CT-CT*1 

500 IFCTZNTHENRSZLEFT$(R&$,LEN(R$)-1):CT2 
O: SOUND2, 40000, 10, 0,0,0,1:G0T0340 

210 GOTO360 | 

520 REM CRASH 

530 POKEL, 90: COLOR4, З 

540 FORIZ15TOOSTEP-.03: VOLI: NEXT: SOUNDI1, 


550 PRINT" {CLR3{BLKISCORE: "STRSCINT(D)) + 


560 IFD>HSTHENHS=D 

520 IFD<LOOTHENPRINT"I THINK YOUR KAYAK 
HAS A LEAK. ": GOTO630 

580 IFD«200THENPRINT"YOUR PADDLE MUST HA 
VE BROKEN.":GOTOó630 

590 IFD«300THENPRINT"SNAGGED А TREE LIMB 
?":60TO630 


600 IFD<400THENPRINT"I SEE YOU HAVE DONE 


THIS BEFORE.":GOTOÓS3SO 
610 IFD<SOOTHENPRINT"YOU MUST BE PART OT 
TER!":GOTOÓS3O 
620 PRINT"INCREDIBLE PERFORMANCE!!" 
630. PRINT"{C/DN3HIT ANY KEY TO RESTART ( 
STOP TO EXIT)" 
640 FORIZ1TO10: СЕТОФ: NEXT: GETKEYGS: 60701 
70 
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Night Sky 


Yikes! Out of the night sky come alien ships on a collision course with you! You get flight control as you 
view out into space. Use a joystick to focus your lasers on the alien attackers. You must hit each attacker five 
times to eliminate it. Warning! Each alien comes at you faster than the previous one. 


10 REM NIGHT SKY 
20 SCNCLR 
30 TEMPO 8:REM SPACE MUSIC 
Alteration—Change the value of the number 40 PLAY "V1O4TSUSXO":REM Vi -GUITAR 
following T in line 40 to another number from 1 50 A$Sz"Ui103GCHGSCSCSCOAHG" 
to 9. This changes the instrument playing ће | 20 Вф-"/У1025С5С5СӘАНСФЗЕСЕЗЕНІ" 
xd 70 PLAY АФ: PLAY BS: PLAY АФ: PLAY B$ 
| | 80 REM NIGHT SKY 
Alteration— To change the difficulty, change 20 GOSUBó660:RAz9000: X=RND(0O):S=1 
the starting range for the invaders—variable 100 COLOR1,2:COLORO, 1: COLOR4, 1 
RA in line 90. | 110 GRAPHIC1,1:FORI=1TO100: X-RND (1) X320: 
YsRND(1)X200: DRAW1,X, Y: NEXT 
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Night Sky 


Alteration— To make the aliens more evasive, 
change line 230 to 230 MOVSPR S, - (INT 
(RND(1)*12) —6), + (INT(RND(1)*12) — 6) 


Alteration—Make your steering ability a bit 
faster by changing the value 3 in lines 270-340 
to the value 4. Don't change the minus signs. 


120 FORX=1TO3: BOX1, 80-X¥10, 60-X¥8, 240 K* 
10,120*X*10: NEXT 

130 BOX1,0,0,319,199 

140 DRAW1,0,0 TO 70,52:DRAVU1,0,199 TO 70 
2130 

150 DRAW1,319,0 TO 250, 52: DRAW1,319,199 

TO 250, 130 

160 COLOR1,6:CIRCLE1,160,90,20,15 

170 CIRCLE1,160,90,8,6 

180 DRAW1,160,73 TO 160,107 

190 DRAW1,138,90 TO 182,90 

200 NMOVSPRE, 171, 130: SPRITES8,1 

210 MOVSPR 5, (RND (1)%305+20) , (RND(1)%180 
+50) : SPRITES, 1: COLOR1,5 

220 REM START LOOP — 

230 MOVSPR S, + (INT (ND(GD X8) -4), + (INT (RN 
D(1)X8)-4) 

240 CHARI,3,0, "SHIPS="+STRS(SH) +" RANGE 
="4STRS(RA)+" SCORE="+STRS(SC) 

250 DX=0: DY=0: ONJOY (2) AND127GO0TO270, pee 
270, 300, 310, 320, 330, 340 

260 5070350 

270. ПҮ--3:050Т70350 

280 DYz-3:DX--3:G0T0350 

290 DX2-3:G0T0350 

300 DYz3:DX-2-3:GO0TO350 

310 DYs3:GOTO350 

320 DY23:DA23:GOTO350 

330 DX-23:GOTO350 

340 DX=3: DY=-3: GOTO3S0 

350 MOVSPR S, TDR, TDT 

360 IF HD^OTHENHD-HD-1:GOTO380 

370 XsBUMP(1):IFJOY(2)AND128THEN SOUNDI, 
30000,15,1,15000,1000: HD=2: GOSUB4SO 


380 IFH-STHENGOTOSSO 


390 RA=RA- (5¥SH+10) : IFRA»?9000- -1500XSTHEN 

230 

400 IFSZóTHENS20 

410 MOVSPR(S*1), RSPPOS(S, 0), RSPPOS(S, 1) 

420 SPRITES, O: 82811: SPRITES, 1 

430 GOTO230 

440 REM HIT 'EM 

450 IFBUMP(1)-OTHENRETURN 

460 SPRITES, 1,3: Н=Н+і: SC28C*125 

470 SOUND2,30000,30,1,20000,800,3 

480 HXsRND(1)0X70-35:HYsRND(1)03X40-20 

490 FORX-1TO4:MOVSPRS, HN, tHY: FORY=1TO20 

sNEXTY,X | 

500 SPRITES,1,4: RETURN 

510 REM CRASH 

520 SOLIND2, 30000. 200, 1, 10000, 100, 3 
MORE — 
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Alteration To deal with fewer than 10 ships, 
change the 10 in line 600 to a smaller number, 
such as 5. 


530 GRAPHICO, 1: FORXZSTO19: FORYZ1TOSO: МЕХ 
T: COLORO, 8: FORY=1TOS0: NEXT: COLORO, З 

240 CHAR1,13,X,"CWHT HXXCRASH9HE" : NEXT 
550 SPRITES, О: SPRITES, O 

560 PRINT“ (HONEY YOUR FINAL SCORE MAS“ SC: 
PRINT "АМО YOU GOT"SH"SHIPS.":GOTOó63O 

570 REM GOT EN 

580 COL ORA, 2: SOUND 2, 30000, 100, 1, 10000, 20 
O, 3: SPRITES, О 

590 SLEEP1: COLOR4, 1: SH=SH+t1:S=1°5H=0: КА=9 
000 

600 IFSH< LOTHENSLEEP2: 65070210 

610 GRAPHICO, 1: COLOR4, 6: SPRITES,Q 

620 FORXSSTO19:CHAR1,9,4X,"YOU'UE SAVED Т 
НЕ ЕАКТН!!!%“:МЕХТ 

630 CHAR1,0,22,"PLAY AGAIN (Y/N)?" 

640 СЕТКЕҮӨФ: IFQS="¥"THENRUN: аа 
N" THENó40 

650 END 

660 PRINT"C€CLR2CUHT32 CRVON? NIGHT SKY" 

670 PRINT"tC/DN2YOU ARE ABOUT TO PROTECT 
THE NIGHT SKY" 

680 PRINT"FROM KAMIKAZE INVADERS. YOU MU 
ST HIT AN" 

690 PRINT"INVADER FIVE TIMES TO DESTROY 
IT AND YOU" 

700 PRINT"MUST DESTROY TEN SHIPS TO WIN. 
a 


710 PRINT"{C/DN}PRESS THE FIRE BUTTON TO 
FIRE LASERS." 

720 PRINT"STEER YOUR SHIP WITH JOYSTICK 
#2." 

730 PRINT"PULL BACK IF ENEMY IS ABOVE YO 
UR SITES," 

740 PRINT"PUSH FORWARD IF ENEMY IS BELOW 

750 PRINT"{C/DN}BE CAREFUL... EACH ENEMY 
SHIP COMES IN" 

760. PRINT"FASTER THAN THE LAST!" 

770 PRINT"{C/DN}GOOD LUCK." 

780 PRINT"{C/DN}HIT ANY KEY TO START.":G 
ETKEYGS 

790 REM INVADERS 

800 COLOR O,1:COLOR 4,1 

810 GRAPHIC 1,1 

820 DRAW1,9, BTO9, 11: DRA, 14, 8T014, 11 
830 BOX1,11,9,12,10: SSHAPEAS, 0,0, 23,21 

840 SPRSAV Ad, 1:SPRITE1,0,4,1 

850 SPRSAVAS,2:SPRITE 2,0,4,1,1,1 

860 SCNCLR 

870 BOX1,3,4,4,14: B0X1,19,4,20,14 

880 В0Х1,5,9,18,10:В0Х1,8,6,15,11,0,1 
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890 BOxO, 2, 7, 10, 8: B0X0,13,7,14,8 

900 SSHAPE ac, O, 0, 23, 21 | Е 

910 SPRSAV АФ, 3: SPRI TESA, 0,4,1 

920 SPRSAV A$,5:5PRITE5,0,4,1,1,1 

930 SCNCLR 

940 BOX1,0,1,2,15,0,1:BOX1, 21, 2, 23, 18, o, 


950 Bx i, 3, 8, 20, 10, 0, 1: BOX 1, 7, 4, 16, 11, 0, 


960 CIRCLEO, 9, 7, 1, 1 :P INTO, 9,7 

970 CIRCLEO, 14, 7, 1, 1: PINTO, 14,7 

980 SSHAPE à&, O, 0, 23, 21 

990 SPRSAV АФ, 4: SPRI TEA, o, 4,1 

1000 SPRSAV АФ, &: SPRI TEE, O, 411,1 

1010 SCNCLR ` | 
1020 CIRCLE1,13,10,1,1,0,0,0,5:SSHAPEES, 
0,0,23,21 | | 
1030 SPRSAVES,8:SPRITE8,0, 6: RETUR 


ae tng ely 
[J < ORR 
2 е 

2 


— a 
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Space Maneuvers 


Space Maneuvers 


You're the pilot of a spaceship on a secret mission, traveling through crowded space traffic. To score, 
avoid collisions with asteroids, mercenary drones and dangerous enemy spacecraft. The deeper you penetrate 
space, the more difficult your task! Use your < and > keys (unshifted) to maneuver left and right. Saving the 


galaxy requires 600 points. 


Programming Tip— Variable SC$ in line 40 
provides for downward scrolling. This is just 
one of many ways to do it with the Commodore 
128. 


Programming Note Make the graphic 


characters in line 70 by typing 


COMM ODORE-X and SHIFT -F. 
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10 
20 


30 
40 
30 


50 


70 


REM SPACE MANEUVERS 

6070270 

21924: KS 212: RT244:L T2347 
SC$z"tHOME3t€C/DN3"*CHR$(27) + "І" 
PRINT"CCLR3CUHT2":COLORAÀ,1: СООРО, 1 
РКІМТ5С%; ТАВ (ІМТ (ЕМр (1) 33) ) 0 о" 


IFP>100ANDRND (1) >. 8THENPRINT"{C/UP3"T 


AB(RND(1)¥38) "V" 
ЗО IFP>300ANDRND (1) >.9THENPRINT"{C/UP3"T 
AB (RND (1) X32) "Wor" | 


Space Maneuvers 


Programming Note—Make the graphic 


characters in line 80 as in line 70, except you 


type SHIFT-Z between the symbols of line 70. 


Alteration—Experiment with different graph- 
ic characters in lines 70 and 80 to create differ- 
ent spaceships. | 


Alteration—To increase the number of 
spacecraft and make the game more difficult, 
decrease .8 in line 70 or .9 in line 80. 


Programming Note—Compare the way ob- 
jects are placed at the top of the screen in this 
program (lines 60-80) to the methods used in 
Shoot The Rapids or Le Mans. Which do you 
prefer? | | 


90 Р=Р+1: ТЕРУ599ТНЕМ230 

100 PRINT" {HOME}SCORE: "Р 

110 M=PEEK (KS) :POKEL+40, 32 

120 IFM=LTTHENIFL<1943THENL=L-1 
130 IFM=RTTHENIFL>1904THENL=L+1 
140 IFPEEK(L)<>32THEN160 

150 POKEL,65:GOTO60 

160. SOUND1, 20000, 2000, 1,10000,5,3 
170 FORXS15TOOSTEP-.1:VOLX 

180 SCNCLR 

190 CHAR 1,15,12, "XXXXCRASHXXXX" ,O: GOTO 


200 IFF=1THENCOLOR4,8:F=0: GOTO220 


210 IFFZOTHENCOLOR4,3:F21 


220 NEXT:SOUND1,0,0 | 
230 CHAR 1,10,12,"THE GALAXY IS SAVED!" 
240 CHAR 1,2,14,"HIT ANY KEY TO RESTART 
(STOP TO QUIT)” | 

250 CHAR 1,16,16,"SCORE A: PRINT P 

260 FORX=1T010:GET@S: NEXT! GETKEY@%: RUN 
270 PRINT" {CLR}":PRINT"PREPARE FOR A JOU 
RNEY THROUGH SPACE." 

280 PRINT"AVOID ASTEROIDS, DRONES, AND 8 
PACESHIPS. " 

290 PRINT"USE THE COMMA AND PERIOD KEYS 
(THINK OF" 

300 PRINT"THEM AS < & > ) TO MOVE LEFT А 
ND RIGHT." 

310 PRINT"{C/DN}HIT ANY KEY TO RESTART" 
320 GETKEYG$:GOTOSO 
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Missile Defense 


Missile Defense 


You must save your cities from incoming enemy missiles. Use your joystick to move your laser sight ( +) 
and press the fire button to fire your laser. The game features five levels of difficulty to keep you challenged. 
You must be quick and accurate to survive. 


10 REM MISSILE DEFENSE 

20 FORX=1TO7:READ D(X):NEXT 

30 DATA -4,4,-3,3,-2,2,-1 

40 GOSUBS90 

50 COLORI,1:FORX=1T04:GSHAPE CT$,XX25-45 
144: NEXT | 

50 FORx 1 703: SPRITEX, 1:NEXT:C=4 
70 REM START LOOP 

80 FORX=1TONM: MOVSPRX, +D(X), +1 
90 SX=RSPPOS (X, 0) :SY=RSPPOS (Xx, 1) 
100 IFSY>218THENGOSUB390 


Missile Defense 


Programming Tip—Lines 150 and 160 read 


the joystick then branch to lines 180-250 to 
move the laser sight. 


Alteration—Increase values 5 and 6 to larger 
numbers in lines 180-250 to make it easier to 
move your laser sight. Decrease those numbers 
for a more challenging game. Don't change 
plus or minus signs. 


110 1Е5Х<16 THEN MOVSPRX,335,SY 
120 IFSX>335 THEN MOVSPRX, 16, SY 

130 NEXT 

140 REM CHECK FOR FIRING | 

150 J2JOY(2):1F(JAND128) ТНЕМ1-2-128: GOSU 
B510 

160 ON J GOTO 180,190,200,210,220,230,24 
0,250 | 
170 GOTO260 


180 MOVSPRS8,*0,-6:GOTO260 


190 MOVSPRS, +5, -5:GOTO260 

200 MOVSPRS, +6, *0: 56070260 

210 MOVSPRS, +5, +5: 6070260 

220 MOVSPRS, +0, +: 5070260 

230 MOVSPRS, -5, +5: GOTO260 

240 MOVSPRS, -6, +0: 6070260 

250 MOVSPRS, -5,-5:G0T0260 

260 CHAR1,0,0," SCORE: "+STRS(SC) : CHAR1,0 

„1, CITIES: "*STR$(C) 

270 IFC«10RSC?5000THEN290;: ELSESO 

280 REM GAME OVER 

290 GRAPHICO,1: FORX=1T08: SPRITEX, o: NEXT 

300 FORY=5T018 

310 IFSC>SOOOTHEN CHAR1,8,Y,"XXXXCITIES 

ARE SAFE ##**": GOTO330 

320 CHAR1,8,Y,"XXXXCITIES DESTROYEDXXXX" 

330 МЕХТ 

340 SLEEP2:CHAR1,10,20, "FINAL SCORE: 187 

ЕФ (SC) 

350 CHAR I, 1, 22, "PLAY AGAIN (Y/N)?" 

360 GETKEYGS: IFG$z"Y"THENRUN:ELSEIF&S2»" 

М"ТНЕМЗ60 

370 END 

380 REM EXPLODE CITY 

390 ВХ=КРРОЅ (Хх, 0) 

400 MOVSPRX, ІМТ (RND(1)X150*101),0 

410 CXO: IFBX>S8THENIFBA< SSTHENCA=1 

420 IFBX>LISTHENIFBX< 160THENCA=2 

430 IFBX>1S8STHENIFBX< 235ТНЕМСХ=3 

440 IFBX>263THENIFBX< SLOTHENCA=4 

450 ІҒСХ-ОТНЕМ490О 

460 ІЕСІСХ) “1ТНЕМ490О I 

470 GSHAPE E2$,CXX75-45,144: SOUND1, 1000, 

100,0,0,0,3:С-С-1 

480 GSHAPE B29$,CXX75-45,144 

490 C(CX) 21: RETURN 

200 REM EXPLODE BOMB 

510 SOUND2, 20000, 10, 1, 10000, 1000 

520 FORW=1TO? | 

530 IFABS ( (RSPPOS(W, 0) +5) -RSPPOS(&,0) ) >4 

THENS70 | | 
МОКЕ >- 
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Missile Defense 


Alteration—Increase the points scored for de- 
stroying a missile by increasing the value of 
125 in line 560. 


Programming Note—Make the graphic сһаг- 
acter in line 690 by typing SHIFT-Z two times. 
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540 
570 
550 
560 
370 
580 
290 


IFABS (RSPPOS (W, 1) -RSPPOS (8, 1) ) „4 THEN 


COLOR4, 2: MOVSPRW, INT (RND (1) & 350), 0 
SOUND, 2000, 50, 0, O0, 0, 3: SC SSC 7125: U 
NEXT: COL ORA, 1: RETURN 

REM INTRO © 
PRINT"{CLR3"TAB(13)5"{RVONIMISSILE D 


EFENSE":PRINT"tiC/DN3YOU MUST PREVENT THE 
CITIES FROM BEING" 


600 
OUR 


PRINT"DESTROYED. ":PRINT"{C/DN}MOVE Y 
LASER SITE WITH JOYSTICK H2" 


810 PRINT"AND PRESS THE FIRE BUTTON SHOO 
T MISSILE." = 

620 PRINT"{C/DN}{C/DN}DIFFICULTY LEVEL ( 
1-5)?" % 


630 


640 


GETKEYG$: IFQS< "1"ORG@S>"5" THENSSO 


PRIN TG: NM=INT (VAL (Q$) ¥1.45) 


PRINT" {C/DN3{£C/DN3HIT ANY KEY TO STA 


СЕТКЕҮОФ: PRINT" (CLR) 
REM DRAW INTERCEPTOR 
COLOR O,4: COLOR 4,1: COLORS,7: GRAPHIC 


SCNCLR: CHARI, 0,0, "ФФ" 
SSHAPEAS, 0,0, 23, 21 


FORX=1TO7:SPRSAV AS,X:SPRITE Х,1,3:М 


OVSPR X,INT(RND(1)X350),0:NEXT . 


720 
730 
740 


SCNCLR ` 
СНАР1,0,0, "+" 
SSHAPE A, O, 0, 23, 21: SPRSAV A$,8 


Missile Defense 


| ing Note—Make the graphic char- 
acter in line 770 by typing SHIFT-B. 


Programming Note—Make the graphic char- 
acter in line 780 by typing COMMODORE-K. 


Programming Note—Make the first graphic 
character іп. line 790 by typing 
COMMODORE-U. Make the second by typing 
COMMODORE-T. ` 


SPRITE8,1,1:MOVSPR8, 160,80 
SCNCLR:SSHAPE B2$,0,0,33,33:COLOR1,1 
CHAR1,0,1," |" 

CHAR1,1,2," ",1:CHAR1,3,2, % 


CHAR1,0,3,"—7 "3,1 


SSHAPE CT$,0,0,33,31 

SCNCLR: COLOR1,12 
CIRCLE1,16,8,16,7:PAINT1,16,8 
FORX-OTO10: DRAWI, 11%Х,5 TO (BEX) +2, я 


2: NEXT 


840 
850 
860 
870 


SSHAPE EZ, O, O, 33, 31 

SCNCLR: COL ORI, 8 

COLOR1, 6: ВОХі, О, 176, 317, 197, 0, 1 
RETURN 
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Wall Bangers 


Wall Bangers 


It's you against the "— as you both try to trap each other by building electrified walls. If you run into 
. the computer's wall or the screen border, you get electrocuted, and vice-versa. | 
Use a joystick to move up, down, left or right. The cursor keys will work too, but the game as written is really 


too fast for them. 


This game features five levels of difficulty. This way, you can easily adapt the game to any skill level. Good 


luck! | 


Alteration—Change the second number in the 
COLOR statements of line 20 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 


Alteration— You can easily add music to the 
game by adding music from another game in 
the book. For example, copy lines 60-120 from 
Hangman and renumber and insert them as 
lines 21-27 to play The Streets of Laredo each 
time you start Wall Bangers. 


10 REM WALL BANGERS 

20 COLORO, 1:COLOR4,7 

ЗО PRINT"CCLR3CUHT2YOU (0) WILL TRY TO B 
UILD AN ELECTRIFIED":PRINT"WALL AROUND M 
E (X). I WILL TRY TO DO" | 

40 PRINT"THE SAME TO YOU.":PRINT"(C/DN2Y 
OU CANNOT CROSS A WALL WITHOUT GETTING Z 
APPED. " 

50 PRINT"{C/DN} JOYSTICK #2 OR CURSOR KEY 
8 (J/K)? 

60 GETKEYVS: IFVS< >" J"ANDVS< > "K" THENSO: EL 
SEV=ASC (V$) -74 

70 PRINT"{C/DN}HOW FAST ARE YOU (1-5) 2" 
80 GETKEYG$:IFGS$O"1"ORGS»"5"THENSO:ELSED 
E=(5-VAL (0%) ) ¥30+1 

90 D(0)2-40:D(1)2-1:D(2) 31:D(3)240 

100 PRINT"4CLR2":FORX-21024T01063:POKEX, 1 
SO: POKEX4960, 160: NEXT 

110 FORX-1064T01944STEP40:POKEX, 160: POKE 
X*39,160:NEXT 

120 P=1924:D=-40:C=1124:DC=3:K$="{C/UP3{ 
C/RT3CC/DND CC/LF2" 

130 IFVTHEN150 

140 ON JOY(2)*1 GOTO200,160,200,170,200, 
180,200,190,200 

150 СЕТОФ: ОМ INSTR(K$,G85,1)41 GOTO200,16 
0,170,180,190 

160 D--40:G0T0200 


170 D-21:G6G0T0200 


180 D-40:G0T0200 
190 D-2-1:60T0200 

200 SOUND1,3000,1,0,3000,1,3 

210 IFPEEK (P+D) < >32THEN340 

220 Р=Р+р:РОКЕР, 87 

230 IFRND(1) >. 9STHENDC=RND (1) +4 

240 IFPEEK(C*D(DC)) 232THEN310 

250 IFRND(1)>.STHEN280 

260 FORX-O0TO3:IFPEEK(C*D(X) )=32THENDC=X: 


270 NEXT: GTO 300 
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Wall Bangers 


280 FORX-STOOSTEP-1: IFPEEK (C*D(X) ) Z32THE 
NDC2X:A420 

290 NEXT 

300 IFPEEK(C*D(DC) ) < 232THENSSO 

310 C=C+D(DC) : POKEC, 42 

320 FORAZITODE:NEXT:GOTO130 

330 COLOR4,ó6:M$z"XXYOU GOT MEX" : GOTO35O 
340 COLOR4,3:M$="YOU GOT ZAPPED" 

350 PRINT"tHOME?"TAB(13) ; H: SLEEP4 

360 PRINT" {CLRS{C/DN3"TAB(13) : МЕ: COLOR, 


370 PRINT"{C/DNSPLAY AGAIN (Y/N)?" 
380 GETKEYGS$:IFGS$-"Y"THEN2O | 
390 ІҒӨФ>"М"ТНЕМЗВО 
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Rear Gunner 


Rear Gunner 


Take your place in the rear gunner's seat of an intergalactic starfighter and take on incoming rounds of 
alien educators. They shoot letters or words at you faster than a speeding asteroid. Score points by typing in the 
same letters or words in time to block the aliens. 

You have the choice of facing single letters or whole words and a choice of five levels of чишу When you 
master this game, you will have also mastered the keyboard. 


Alteration—To practice typing BASIC 7.0 
words, substitute the keywords from your 
Commodore 128 manual into the vocabulary. 
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10 REM REAR GUNNER 
20 DIMNWS (46), LS (46) 
30 COL ORA, 7: COL ORO, 1: COLOR1,2 


40 PRINT"{CLR}YOU ARE ABOUT TO TAKE YOUR 


PLACE IN":PRINT"THE TAILGUNNER POSITION 


50 PRINT"SHOOT DOWN THE LETTERS FOR POIN 
TS BY" 

60 PRINT"TYPING THEM ON THE KEYBOARD." | 
70 PRINT"tC/DN?YOU WILL HAVE ONLY А SHOR 
T TIME TO TYPE" 

SO PRINT"EACH ONE." 

90 PRINT"{C/DN3YOQU MAY SHOOT SINGLE (RVO 
N3LERVOF SETTERS OR” | 

100 PRINT"ENTIRE CRVONJUCRVOFJORDS, WHIC 
H DO YOU WANT (L/W)?" | 


Rear Gunner 


Alteration—For a faster game, change the 
value 410 in line 360 to 405. Don't make this 
value less than 401, or you will have no time at 
all. ЭЕ 


Programming Note—The blank part of line 
430 is equal to 8 spaces. 


110 GETKEYVS: ІРУФ<>71-"АМОУФ4>"Ы"ТНЕМ110 
120 PRINT"{C/DN3AND HOW FAST ARE YOU (1- 

5)?" 

130 GETKEYGS: IFGS("1"ANDGS»"5"THEN130 
140 SP=VAL (6%) 

150 PRINT"£C/DNJOKAY, JUST TYPE WHATEVER 
YOU SEE AS":PRINT"FAST AS YOU CAN!":SLE 

EP2 

120 FORX=1T046! READWS(X) : NEXT 

170 FORXs1TO26:L$(X)2CHR$(X*64) : NEXT 

180 FORX=0TO9:LS(X+27) CHR (X £48) : NEXT 
190 GRAPHIC1,1 | 

200 FORI=1T050:X=RND(1)¥320! VRN (1) #200 
: DRAW1, X, v: NEXT 

210 COLOR1,11:FORI-1TO20:X-RND(1)X320: Y= 
RND(1)X200:DRAW1,X, Y: NEXT 

220 COLOR1,7:FORI-1TO020:X-RND(1)X320: Y=R 
ND (1) X200: DRA, X, Y: NEXT | | 

230 COLOR1,2:B0X1,0,0,319, 199 

240 B0X1,100,90,220,110 

250 DRAW1,0,0 TO 100,90 

260 DRAW1,0,199 TO 100,110 

270 DRAW1,319,0 TO 220,90 

280 DRAW1,319,199 TO 220,110 

290 REM START LOOP 

300 FORC 17025 | 

310 COLOR1,5:CHARI,15,0, "SCORE ="+STR$(S 


320 R-RND(1)X4ót*1 

330 IFVS="W" THENS#=WS(R) : ELSES#= L (R) 
340 TB=20-LEN(SS) /2 | 

390 CHARI, TB, 12,5%: POKE (208), 0 


360 TLLEN(S$)X*(410-SPX80) :LzO: T=TI 


370 DO UNTIL(LEN(S%) =LEN(RS)OR(TI-T) >TL) 
380 GETOS: IFQS< "O"OR@S>"Z" THEN410 

390 SOUND1,5000, 1 

400 RSR: CHARI, TBL, 22, 63: LL 71 

410 Loop 

420 IFRS=S$THENSC=SC+125  — 

430 RS="":CHARI, 15,22," " 

440 FORX-14T026:CHAR1,X,12," ":NEXTX,C 
450 GRAPHICO, 1: CHAR1, 10, 10, XG OVER 

xxx" 

460 PRINT:PRINT"{C/DN}{C/DN}FINAL SCORE- 
и SC 

470 IFSC<=1000THENPRINT"{C/DN}MAYBE YOU 
NEED MORE PRACTICE.":GO0TO510 

480 IFSC4-22000THENPRINT"£C/DNJNOT BAD... 
KEEP TRYING.":60T0510 | 

490 IFSC<=2625THENPRINT"{C/DN}GOOD JOB! | 


CONSIDERED BEING А SECRETARY?":GOTOS510 


MORE —> 
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Rear Gunner 


500 PRINT"{C/DN}INCREDIBLE! YOU SHOULD T 


RY A FASTER SPEED." 
510 PRINT"tC/DN2TYPE [RUNI TO RESTART. *: 
END 


Alteration— You can change the game's 520 DATA THE, OUR,RUN, SEE, HOP, AIM 

vocabulary in lines 520-600. But be sure to 530 DATA TUG,WIN,FLY, 200, BOX 

keep the same number of words, 46 total. 540 DATA HAD,SHE,HER,HUG,AIR 
550 DATA DIG,DEER, IDEA,HIRE,SIDE 
560 DATA RARE,FEAR,FLAG,GIFT,LIKE 
520 DATA WORK, HAVE, GIVE,LOVE, HOPE 
580 DATA QUICK, RIGHT, ABOUT, THINK, WRITE 
590 DATA SOUND, SPORT, PLANE, CHEER, STORE 
600 DATA THROUGH, RABBIT, HOLIDAY, DOLLAR,S 
ECOND 
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Le Mans 


Le Mans 


Get your helmet and racing gloves ready! You are about to negotiate the challenging track at Le Mans. In 
this computer simulation, you use a joystick or « and > keys (unshifted) to steer. Avoid other cars, debris and 
the guardrails. The better you are, the tougher the track becomes. The program lets you choose the color and 
number of your car. 


Programming Tip— Variable SC$ іп line 40 |. 10 REM LE MANS 
scrolls the screen downward. CHR$(27) + 20 COL ORA, G: COLORO, 16 
"| " is the escape sequence that inserts one 30 COLLISION2,410 
Е 40 SC#="CHOME3{C/DN}"+CHRS(27) +"91":5С=0: 
Alteration—For a more difficult game, start SPzO:L2-70 
with a narrower road by changing the value of SO N21:LLz22:R216:RWz11:LL23:UL226:K52212 
RW in line 50 to 9. 60 RTz24d4d:LTz247:A2.4:B2.6:C2.05:D2.05 

70 PRINT"C{CLR3"TAB(10) "{RED} {RVON}LE MAN 
Alteration—Increase the debris in the road by a 
increasing variables C and D in line 60. But 5 ROAD RALLY!!! 
don't increase them by much or the track is 80 PRINT"{C/DN3{C/DNIYOU ARE ABOUT TO RU 
impossible to drive. N A RACE AT LE MANS" | 


i 90 PRINT"4C/DN2STEER YOUR CAR WITH THE С 
Alteration—To make the road wind more dra- OMMA AND" 
matically, increase the value of A and decrease ; MORE 
the value of B in line 60 by exactly the same 
amount. The values must be less than 1.0 and 
greater than O. 
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Le Mans 


Programming Note — Make the graphic char- 


acter in line 340 by typing COMMODORE- + . 


Programming Note—Make the graphic char- 
acter in line 350 by typing SHIFT-Q. 
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100 PRINT"PERIOD KEYS--THINK OF THEM AS 
< AND >." 

110 PRINT"CC/DN3UHAT'S YOUR COLOR?":PRIN 
T"1) BLACK":PRINT"2) RED":PRINT"3) GREEN 


120 PRINT"4) BLUE":PRINT"S) YELLOW" 

130 GETKEYGS$: ІРОФ< "1 "ОНОУ "5 "ТНЕМіЗО: ЕЦ5 
E PC=VAL (0%) | 
140 IFPC=2THENPC=3: GOTO1S0 

150 IFPC=3STHENPC=64: GOTO180 

160 IFPC=4THENPC=/7: GOTO180 

170 IFPC=STHENPC=8: GOTO180 

180 PRINT"CC/DN3UHAT'S YOUR NUMBER (0-9) 


190 GETKEYQS: IFGS< "O"ORQS>"F"THENISOSELS 
E PN=VAL(GS) ` 
200 PRINT"{C/DN3KEEP BETWEEN THE GUARDRA 
ILS AND WATCH" 
210 FRINT"FOR DEBRIS IN THE ROAD. THIS I 


8 A TRICKY" 


220 PRINT"ROAD... IT GETS NARROWER!" 
230 PRINT"{C/DNSHIT ANY KEY TO START":GE 


 TKEYGS 


240 GOSUB530 

250 FORY-1T023: CHAR1,16,Y, (BLK) ",1:CHA 
R1,28,Y," ",1:NEXT 

260 REM nal LOOP 

270 SOUND1,0,0:SOUND1, SP+100, 200, 2, SP+80 
‚5,3 

280 L=INT(SC/100) : KSRND (1) 

290 IFK<ATHENIFR>LLTHENR=R-1 

ЗОО IFK>BTHENIFR<ULTHENR=R+1 

310 IFL>L2THENL2=L: IFRW>4THENRW=RW-1:SP= 
SP+100 

320 CHARI,0,0,"{RVON}{PURP3LE MANS>>>{RV 
OF}. SCORE: 18 TRE (SC) * | 
330 PRINTSCS:CHARi,R,1,"CBLK? ",1:CHARi, 
R+tRW,1," ",1 

340 IFKXCTHEN CHARI, INT(RND(1)¥(RW- DRE 


1), 1, 8 


350 IFK<DTHEN CHARI, INT (RND (123 RU- 1) +R+ 
1),1,"8" 

360 P=PEEK(KS)!IFP=LT THEN MOVSPR1, -8, +0 
370 IFP-RT THEN MOVSPR1,+8,+O 


380 5С-5С41: 


390 GOTO270 
400 REM CRASH | 

410 COLOR4,3:50UND2,4000,300,0,4000,0,3 
420 FORIZ15TOOSTEP-.01:VOLI:NEXT:VOL15:S 
PRITE1,0 

430 PRINT" {CLR} CBLKSCORE: "STR (SC) "{C/D 
Ni" | 


Le Mans 


440 IFSC?HSTHENHS-SC 
450 IFSC«100THENPRINT"I THINK YOU FORGOT 
TO FUEL UP.":GOTOS500 

460 IFSC«300THENPRINT"MUST HAVE HAD A BL 
OW OUT.":GOTOS500 | 
470 IFSC<SOOTHENPRINT"I SEE YOU HAVE DON 
E THIS BEFORE. ":GOTO500 

480 IFSC«700THENPRINT"GOOD JOB! INDIANAP 
OLIS HERE YOU COME.":GOTOS5O00 | 
490 PRINT"GREAT PERFORMANCE!! A.J. FOYT 
MOVE OVER." 

500 PRINT"{C/DN}HIT ANY KEY TO RESTART О / 

R [STOP] TO QUIT” 

510 РОКЕ208, 0: СЕТКЕҮӨФ: RUN 

520 REM DRAW CAR 

530 GRAPHIC1,1 

540 CIRCLE1,12,14,3,4 

550 PAINT1,12,14: DRAW1,16,8 TO 16,15 
560 В0Х1,10,3,14,8,0,1 

520 BOX1,8,4,16,5,0,1 

580 B0X1,6,14,8,12,0,1 

590 BOX1,16,14,18,17,0,1 

200 CHAR1,1,1,CHR$(PN*48),1 

610 SSHAPEAS, 1,1,24,22:SPRSAVAS, 1 
620 SCNCLR | 

630 SPRITE1,1,PC:MOVSPR1,180,220 

640 GRAPHICO, 1:RETURN 
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Moon Lander 


Moon Lander 


After hearing an electronic Star Spangled Banner, you must try to land your ship safely on the moon. 
Control the amount of thrust by pressing the number keys. The higher the thrust, the greater the deceleration and 
fuel use. If you run out of fuel, the engine won't wotk and the ship crashes. 

To land safely, you must reach zero altitude at a rate between 0 and 5 meters per second. 


10 REM MOON LANDER 

20 SCNCLR 

30 TEMPO 12 

40 PLAY"UI1O4TSUGXO":REM GUITAR | 
50 ASz"VIOSISESCO28$A03G8CG$EHS$SAO4.ICOSSS$ 
 BGSAGCGDHSEISEISE' | 

60 B$-"U104.GCOSISBGSAHGIFIFGSAGSAGSEGCO 
2 

70 PLAY AS:PLAY BS 

80 GOSUB490 

90 PRINT" {HOMES CWHTSALTITUDE: (CYAN? "INT ( 
A)"CC/LF3 "%ТАВБ(16) "METERS" 

100 PRINT" {WHTSVELOCITY: (CYAN? "INT (V) "CC 
/LF3 "3 TAB(16) "METERS/SEC" 


— a — 
—— ^а — 
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Moon Lander 


110 PRINT" {WHT}FUEL s {CYAN} "F"{C/LF} 
"STAB(16)"KG" ZD 
120 PRINT"CWHT2THRUST  :(CYAN3"TX100"(C/ 
LF} „ TaB (16) JL 
Programming Note—Make the graphic | 130 IF@=1 THENPRINTTAB(17)" {LBLU} v: PRIN 
characters in line 130 by typing SHIFI-U, | TTAB(17) "{GRY3} KLBLU2 “": Өз0:0070150 
SHIFT-H, and SHIFT-J. 140 PRINTTAB(12)"£LBLUJ. ":PRINTTAB(17)" 
| (LBLU)2 {GRY3S} ":@=1 
decies lin 140 by typis SHIFTISHIFT. | 150 GETTS: IFTS<"O"ORTS>"9"THENIGO 
K, and SHIFT-G. ` 160 T=VAL (TS) :ZeVAL (T$) : VOLZ: SOUND1, 3000 
| 0,60,2,30000,0,3 
170 IF(F-T) <1 THENT=0:F=0 
180 DV=V-G+ (THC) / (M+F) 
190 F=F-T:A=A+ (VD) /2:V=DV 
200 PRINTFS:FORI=1TOS!:PRINTTAB(17)" — ": 
NEXT 
210 PRINTF$:0N10- TGOTO220, 230,240,250,26 
| 0,270,280,290,300,310 
Programming Note—Make the graphic 220 PRINTTAB(17) " CUHT 722 
characters іп lines 220-300 by typing | 230 PRINTTAB(17)"CREDHBCUHT t RED 338" 
COMMODORE- + . 240 PRINTTAB(17) "{RED} 
250 PRINTTAB(17) "{RED} 
260 PRINTTAB(17) "{ҮЕ О? (ВЕР? ( YELO ng 
270 PRINTTAB(17) "{YELQ} 
280 PRINTTAB(17) "{YELQ} 
290 PRINTTAB(17) "{YELG} 
300 PRINTTAB(17) "{YELG} 
310 IFA>STHENSO ~ 
320 V=ABS(V) :IFV< LOTHEN42Z0 
330 PRINT"{CLR}":VO=15 — 
340 FORI=1T022:PRINTTAB(14) "CUHT HOXXXCRÀ 
SHXXXX" : NEXT 
350 SOUND1,2000,1500,2,0,0,3 
360 DO UNTIL VO«4.2 
370 VOL VO:COLOR4,3 
380 COLORO, 3:FORJ=1T022:NEXT 
390 COLORO, 8: FORJ=1T022:NEXT 
400 У0-У0-,1:100Р 
410 COLOR4,1:COLORO,1 
420 PRINTLEFTS(F%,6) (Hr; 
430 IFV<=STHENPRINT"PERFECT LANDING! : G0 
70460 
440 IFV<=10THENPRINT"HARD LANDING" :GOTO4 


450 PRINT"CRASH LANDING": IFV7LSTHENPRINT 
"NO SURVIVORS!" 
460 INPUT"{C/DN3{C/DNIPLAY AGAIN" 5 0% 
470 IFLEFTS(@%, 1)="Y¥"THENSO 
480 END 
490 REM INTRODUCTION 
300 COLOR4,1:COLORO,1 
MORE — 
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Moon Lander 


Programming Note—Make the graphic char- 
acter in line 590 by typing SHIFT-I. 


Programming Note—Make Ше graphic 
characters in line 600 by typing SHIFT-K, 
SHIFT-G, SHIFT-U, SHIFT-I. 


Programming Note—Make the graphic 
characters in lines 610, 620 and 650 by typing 
SHIFT-£ and SHIFT-*. 


Programming Note—Make the graphic 
characters in lines 680-710 by typing 
.  COMMODORE-B, ` COMMODORE-I, 
` COMMODORE-U, SHIFT-£, SHIFT-*, 
COMMODORE-C, and COMMODORE-V. 


Alteration—Change the starting values by 
changing the following variables in line 720: A 
is starting altitude; M is mass of spaceship wit- 
hout fuel; F is amount of fuel; G is gravity, 
which affects the rate of fall. The game as 
written uses a G value about what it is on Earth. 
Using the actual moon-gravity value of 1.62 for 
G slows the game down. 


690 PRINTTAB(12) "CRVONJhCRVOF 24 


310 PRINT" {CLR} TAB (IS) "ИНТ {RVON3 MOON 
LANDER{RVOF >" 

520 PRINT"{C/DNIC{C/DNITRY TO LAND YOUR S 
HIP AT ZERO TO" | 

530 PRINT"FIVE METERS PER SECOND." 

240 PRINT"{C/DN}PRESS KEYS 0-9 TO SET TH 
RUST." 

550 PRINT"(CC/DN32HIT ANY KEY TO START." 
560 GETKEYAS | 

570 ҒФ-"ХНОМЕХКС/ОМИЫСУ/ОМИС/ОМИЯС/ОМО:ХС 
/DN3t(C/DN3CC/DN3 CC/DN32 CC/DN3 CC/DN3 CC/DN3 
(C/DN2 £C/DN3 CC/DN2" 

380 PRINT"t£CLR32" 

3990 PRINT"CHOME3StC/DN3CC/DN3 CC/DN3 CC/DN3 
"TAB(12)" (LBLU s " 

600 РЕІМТТАВ (17) " tLBLU212 CGRYS33] CLRED3 ^ 
ТЕ 


610 РЕІМТТАВ (14) "{GRY3S} {RVONIF 

OF 3 н | 

620 PRINTTAB(14)" {RVON} “ERVOF} СЕЛОМ 

{RVOF} РУОРР" 

630 PRINTTAB(14)" tRVON3 

640 РКІМТТАВ(14)" tRVON3 tRVOF J] {RVON? 
н I 


WRV 


650 PRINTTAB(14)" KRVON? CRVOF Р" 

660 PRINTTAB(14)"iYELO3SC€RVON? ` ` T 

670 PRINTTAB(14) "€RVON? CUHT USA YELQ> 
п 


680 РЕІМТТАВ (13) "«КЧОМ Ч К\М/ОЕ? SJ "CRVON? 

tRVOF J Wa" 
(URVON 3 
СӨКҮІЗР WRVOFSCVYELO} wa" 
200 PRINTTAB(11)"CRUONJ'ECRVOF 3 

Lb | 
710 PRINTTAB(10)" "LRVON2 at RVOF 3 

{RVON dat RVOF 3" ” | 

720 А-20000:М-8000:Ғ-2000:06-10:У-0: TSO: C 
220000 
730 RETURN 
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Gambler 


Gambler 


Play the one-armed bandit at the computer casino. The computer calculates payoff based on the amount 
bet—nickels, quarters or dollars based on the various combinations of cherries, lemons and oranges that 
appear. Major jackpots are awarded for three of a kind. 


Alteration—Line 30 sets the colors C(0) to 
C(3) for Sprites 1 to 4. Change the colors by 
changing values. For example, С(0)-7 
changes lemons from yellow to blue. 


Alteration—Lines 40-110 draw the fruit- 
shaped sprites and the BAR. Change these if 
you like. 


Programming Note—Make the graphic 
characters in line 100 by typing 
COMMODORE-P and COMMODORE-Y to 
match the printout here. 


10 REM GAMBLER 
20 COLORO, 16: COLOR4, 13 

ЗО С(0) =8:С(1) =11:С(2) =3:С(3) =5 

40 GRAPHIC2, 1: CIRCLE1,12,7,11,4 

50 PAINT1,12,7:SSHAPE F$(0),1,1,24,21 

60 SPRSAV F$(0),1: SCNCLR:CIRCLE1, 12, 7, 9, 
6:PAINTI,12,7:SSHAPE F$(1),1,1,24,21 

70 SPRSAV FS(1),2:SCNCLR ` 

80 CIRCLE1,7,5,4,3:PAINT1,7,5:CIRCLE1, 13 
,11,4,98: PAINT1, 13,12 | | 
90 CIRCLE1,19,6,4,3:PAINT1,19,6:SSHAPE F 
5 (2), 1, 1, 24, 21: SPRSAVU F$(2),3: SCNCLR 
100 HAI, 0, 0, : CHAR 1, О, 1, " —. 


MORE 


ә” 
pu 


f 
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Gambler - 


Alteration—Lines 210 to 340 draw the Ban- 
dit. You may wish to alter the DRAW state- 
ments to customize your own slot machine. For 
example, change the CHAR statement of line 
340 to replace the word BANDIT with your 
lucky word or name. 
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110 SSHAPE F$(3),1,1,24,21:SPRSAV F$(3), 
4: SCNCLR 

120 FORX=1T04: SPRITEX,0,C(X-1) : NEXT 

130 FORX=1T03:KEY2¥X-1, CHRS(X+132) : NEXT 
140 KEY7,"":D-20 | 
150 FORXsS1TO14:PRINT:NEXT:PRINTCHR$(27)* 
T? 

160 GRAPHIC4,1,15:COLOR1,1: COLOR2,7:COLO 
R3, 2 

170 SSHAPE DBS, 115, 50, 128, 90 

180 BOx1, 118, 45, 125, 50, 0, 1: BOx 1, 121, 45,1 
25, 80, 0, 1 

190 CIRCLES, 123, 85, 5, S: PAIN TS, 123,85 
200 SSHAPE 0%, 115, 50, 128, 90:SCNCLR 


210 BO x1, 60, 12, 100, 20, 0, 1 


220 DRA, 45,30 TO 55,20 TO 104,20 TO 11 
4, 30 

230 DRAW1,50,30 TO 60,20 TO 99,20 TO 109 
30 

240 DRAW3,51,60 TO 51,36 TO 108,36 TO 10 
8,60 TO 51,60 


250 BOX1,45, 30,50, 120, 0, 1: BOX1, 109,30, 11 


4,120,0,1 

260 BOX1,114,120,45,114,0,1 

270 PAINT1,50,26:PAINT1, 109,26 

280 FORX-0T02:B0X3,54*18XX,40,70*18XX,55 
: NEXT 

290 PAINT3,52,37:B0X1,52,38,108,57 

300 B0X2,51,61,108,113: FORX-OTO24STEP2 
310 CIRCLE2,80,87,X*2,X,0,0,0, 2: NEXT: PA 
NT2,52,62 

320 Б0Х1,121,15,125,50,0,1:В0Х1,115,45,1 
25,50,0,1 

330 CIRCLE3,123,10,5,5: PAINT3, 123,10 
340 CHAR2,15,3," XBANDITX ",1 

350 SSHAPEUS,115,5,128,50 

360 PRINT" {CLR} {HOME} {HOME} ": FOR 17018: 


PRINT: NEXT 


370 PRINTTAB(2)"CRVON3CGRY13F-1CRVOF? NI 
СКЕ. "ТАВ (14) *"{RVON}F-3{RVOF} QUARTER" TAB 
(27) "CRVONSF-S{RVOF} DOLLAR" 

380 PRINT"{C/DN}3 BAR? JACKPOT! "ТАВ(2 
0) "З ORANGE? BET X 25" 

390 PRINT"3 LEMON> BET X 10"TAB(20)"3 C 
НЕЕВҮ> BET X 5" 

400 PRINT"2 CHERRY» BET X 2"TAB(20)"1 CH 
ERRY> BET X і" 


410 PRINTCHR$(27)"T":PRINT"YOU HAVE $"D 


420 GETKEYGS$: ІҒӨФ< (FI) ORD CFS) THEN 
20 | 

430 BO: IFQ$="{Fi}"THENB=.05 

440 IF@$="{F33"THENB=.25 


Gambler 


Alteration— Change payoffs by changing the 
values of variable M in lines 510 to 580. Be sure 
to change the PRINT statements in lines 380 to 
400 appropriately. 


Programming Note— The blank part of line 
620 is equal to 10 spaces. 


450 IFQ@$="{F5}"THENB=1 
460 IFB-OO0RB»DTHEN420 

470 GSHAPE DBS,115,5 

480 GSHAPE D$,115,50:G60SUB730 

490 GSHAPE DBS,115,50:GSHAPE U$,115,5 
500 IFW(0) 42W (1) ORW(O) <>W L2) ORW (2 562 
THENSSO ` 

510 IFW(0) 23THENM-100: GOTO600 

520 IFW(0)-2THENM-5:G0T0640 

530 IFW(0)=1THENM=25: 5070640 

540 IFW(0)=OTHENM=10:GOTO640 

550 CH=0:FORX=0TO2: IFW (X) =2THENCH=CH+4 
560 NEXT 

570 IFCH=2THENM=2: 05070640 

580 IFCH=1THENM=1:GOT0640 

590 SLEEP1:D-D-B:IFD»OTHENó50:ELSE680 
500 FORX-1TO05:CHAR3,15,0," JACKPOT! ",1 
510 FORT-1T0400:NEXT 

620 CHAR3, 15,0," н 

630 FORT=1T0400:NEXTT, X 

640 D-D*(MXB-B) :PRINT"BANDIT PAID OFF Ф" 
BXM: SLEEPS 

650 PRINT"CCLR3£C/DN3YOU HAVE $"D 

&60 GSHAPE DB$,115,50:G5HAPE U$,115,5 
670 FORX-STO7:SPRITEX, O: NEXT: GOTO420 

680 PRINT'tCLRICC/DNYOU ARE BROKE ! " 

690 PRINT"PLAY AGAIN (Y/N)?" 

700 GETKEYGS: IFQ¢="¥"THEND=100: GOTO450:E 


LSEIFQS< >"N" THEN700 


710 END 

720 REM SPIN BANDIT 

730 FORX=0TO2!W(X) =ІМТ (RND (1) X4) : NEXT 
740 FORX=0TO2 

750 FORY-1TO4:MOVSPR Y,138435XX,91:NEXTY 
760 MOVSPR 54X,138435XX,91:SPRSAV F$(W(X 
)),5*X 

770 FORY=1T010:FORZ=1T04: SPRITEZ, 1: FORT 
17030: NEX TT: SPRITEZ,O:NEXTZ,Y 

780 SPRITE 5+Х,1,С(0(Х) ) : NEX Tx: RETURN 
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Orion 


Orion 


This is your chance to be a guardian, defending the cities of Orion by shooting down invading drones. You 
have three missile silos. Fire your interceptor missiles at the incoming drones by pressing keys 1, 2 or 3. Once 
you launch a missile, you can't launch another from that silo until the missile hits a drone or reaches maximum 
altitude. You lose if all of your cities are destroyed. 


Alteration—For a slightly more difficult. 


game, change line 30 to 30 DATA 
—6,6, 4,4, - 3 


Programming Tip—The numbers in the 
DATA statement of line 30 control the angle of 
descent of the drones. 


10 REM ORION 
20 FORX=4T08: READ D(X):NEXT 


| 30 DATA -2,2,-1,1,-1 


40 GOSUEBS60 | 
30 COLOR1, 1: FORX=1TO4:GSHAPE CT$,x*X75-45 
144: NEXT | 


60 FORX=1T03:SPRITEX, 1: NEN 


70 C=4:COLLISION1, 460 

80 REM START LOOP 

90 FORX=4TONM+3:MOVSPRX, +D(X), +4 
100 SX=RSPPOS(X, 0) :SY=RSPPOS(X, 1) 
110 IFSY>21STHENGOSUB340 ` 


Orion 


120 IFSX<16 THEN MOVSPRA, 335, SY 

130 IFSX>335 THEN NHOVSPR&, 16, SY 

140 NEXT 

150 REM CHECK FOR FIRING | 

160 GETF$:IFFS$4"1"ORFS»"3"THEN180 

170 MOVSPR VAL(F$),0 #3 

180 FOR&K 1703 

190 IFRSPPOS (X, 1) <ЅОТНЕМ: HOV SPR, 9 80: MO 
VSPRA, AXSOtS, 230 

200 NEXT 

210 CHAR1,0,0," SCORE: "+STRS(SC) > CHARI,O 
„1, "CITIES: "4STRBIC) | 

220 ІҒС«10Е5С>5ОООТНЕМ240: ELSE9O 

230 REM GAME OVER 

240 GRAPHICO, 1: FORA=1TOS: SPRITEX, 0: NEXT 
250 FORY=5T018 

260 ІҒ5С>5000ТНЕМ CHAR1,8,Y,"JX3H€X ORION 
IS SAFE JX3XX":GOTO280 

220 CHAR1,8,Y, X ORION DESTROYEDXxx" 
280 NEXT 

290 SLEEP2:;CHAR1,10,20,"FINAL SCORE:"«*ST 
R$(SC) 

300 CHAR1,1,22,"PLAY AGAIN (Y/N)?" 

310 GETKEY@S: IFQ@$S="Y" THENRUN: ELSEIFQS< >" 
N"THEN310 

320 END 

330 КЕМ EXPLODE CITY 

340 BA=RSPPOS (X, 0) 

390 MOVSPRX, INT(RND (1) & 150101), 0 

360 CX=0: IFBX >38THENIFBX<8STHENCX=1 

370 IFBX>?L1ISTHENIFBX< 160ТНЕМСХх=2 

380 IFBX>1S8STHENIFBX< 235THENCX=3 

390 ІҒВХ>26ЗТНЕМІҒВХ« SLOTHENCA=4 

400 ІҒСХ-ОТНЕМ44О 

410 ІҒСІСХ) =1 ТНЕМ440 

420 GSHAPE E2$,CXX75-45, 144: SOUND1, 1000, 
100,0,0,0,3:С- e- 1 

430 GSHAPE B2%, CX¥75-45, 144 

440 C(CX)21: RETURN 

450 КЕМ EXPLODE ВОМВ 

460 @l=EUMP (1) : IFG12OTHENRETURN 

470 FORWZ1TOS 

480 IF(Q1AND(2T (U- 1) )  THEN490: ELSES40 
490 COLOR4,2 

200 IFW>3THENS3O 

510 MOVSPRW,O #0: MOVSPRW, W¥S80+5, 230 

520 SOUNDI, 2000, 50,0,0,0,3: SC=SC+125: GOT 
05400 

530 MOVSPRM, INT (RND(1)¥350),0 

540 МЕХТ: B1-BUMP (1): COLOR4, 1: RETURN 

950 REM INTRO 


MORE > 
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Orion 


Alteration— Change the color of your missiles 
by change the third number of the SPRITE 
statement in line 680. For example SPRITE 
X,0,7 will make them blue. 


Programming Note—Make the graphic char- 
acter in line 690 by typing SHIFT-Z two times. 


Programming Note—Make the graphic char- 


acter in line 730 by typing SHIFT-B. 


Programming Note— Make the graphic char- 
acter in Іше 740 by typing COMMODORE-K. 


Programming Note—Make the first graphic 
character in line 750 by typing 
COMMODORE-U. Make the second by typing 
COMMODORE-T. 


Alteration—You may want to add some 
clouds or a sun to the sky, as in No Free Lunch. 
Add DRAW statements in lines near line 840. 


116 


560 PRINT"CCLR3"TAB(t17)5 " CRVONI2ORION" РЕ 
INT"{C/DN} DEFEND ORION WITH ANTI-MISSILE 
" 


570 PRINT" INTERCEPTORS. "; PRINT"tC/DN3PRE 
SS KEYS 1-3 TO LAUNCH YOUR MISSILES." 
580 PRINT"{C/DN3C(C/DNSDIFFICULTY LEVEL ( 
1-5) ?"5 

590 GETKEY@S: IFQGS< "1 "ORQS>"S" THENS?O 

600 PRINT@S: NM=VAL (Q$) 

810 PRINT"{C/DN3{C/DNSHIT ANY KEY TO STA 


620 GETKEY GS: PRINT" ІСІН?" 
630 REM DRAW INTERCEPTOR 
640 COLOR 0,16:COLOR 4,1: COLORS, 7: GRAPHI 


650 DRAW 1,24,14 TO 22, 23 TO 22,26 TO 26 


526 TO 26, 23 TO 24,14 


660 PAINT 1,24,23 

670 SSHAPE А%,11,10,34,31 

680 FORX=1TO3:SPRSAV A$, X: SPRITEX,0,3: MO 
VSPRX, XX 8015, 230: NEXT 

690 SCNCLR:CHAR1,0,0,"49e6" 

700 SSHAPEA$,0,0,23,21 

710 FORX=4TOS:SPRSAV AS,X:SPRITE X,1,7:M 
OVSPR Х, ІМТ (ЕМр (1) #350), 0: NEXT 


720 SCNCLR: SSHAPE В2%,0,0,33,33:С01 081,1 


730 СНАВ1, 0,1," |" 

740 CHAR1,1,2," ",1:CHAR1,3,2, "B" 

750 СНАВ1,0,3,"— m 1 

760 SSHAPE CT$,0,0,33,31 

770 SCNCLR:COLORi1, 12 

780 CIRCLE1,16,8,16,7:PAINT1,16,8 

790 FORX-OTO10:DRAWi,114X,5 TO (3%X)+2,3 
2:NEXT 

800 SSHAPE Е2%,0,0,33,31 

810 SCNCLR:COLOR1,8 

820 COLOR1,8:FORX-OTO2 

830 BOX1,0480XX, 176, 69*80XX, 199,0, 1:NEXT 
840 BOX1, 240, 176, 319, 199,0,1 

850 RETURN 


Berserkotron 


Berserkotron 


You're applying for a job at a computer- game factory, but get lost in a room of berserk robots. Escaping 
through one of three exits is your only hope of survival. 
This is made difficult because the robots chase you. Though berserk, they aren't stupid. They have a 
computer-aided ability to track your every move. However, you can use the barriers in the room to block a 
robot's progress. Good luck! Bach's Bourée has been adapted for your listening pleasure prior to the game. 


10 REM BERSERKOTRON 

20 SCNCLR | | 

30 TEMPO 12:КЕМ BOUREE BY BACH 
Alteration—To change musical instruments, 40 PLAY "Vi0O4T4U8X0":REM VOICE 1 =FLUTE 


change the value of the variable following the 50 PLAY "V2O04TóUGXO0";REM VOICE 2=HARPSIC 
letter T in lines 40 and 50 to a number from 1 to HORD | 


PLAY охашріо, іе aoran electric dum: 40 | 60 A$="V104IEV202IGV104I#FV202IB#F":;REM. 0 


ELEC DRUM PENING NOTES | 
70 B$-"V104Q6U2O2GEGAVI1OJIHFIEGHDUZOZGBG 
AVIOSIEI#HF":REM iST MEAS. 
80 CH= “VIOSGBVZO2ZEGRRFVIO4THCIADGEGHFVZO 
Z2QGEQHEVICGSIDIC":REM 2ND MEAS. 


MORE —> 


——— : 
— = — 
— 

—P 
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Berserkotron 


Alteration— Change the second number in the 
COLOR statements of line 140 to change the 


color of the background (COLOR 0) and the 


border (COLOR 4). Use values from 1 to 16. 
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90 D$-"VIOS3GBVZO2GGGAViOSIAIGGHFVZO2GBGA 
Мі0ЗІСІА": КЕМ 3RD MEAS. 

100 E$-"U202G8GV1IOS3IBIAV202GBV1O03IGIHFGOEV 
ZO02IEISFICVIOJIEIHFV2O2IHF":ZREM 4TH MEAS 


110 F$-2"UIOSGBU2O2G0GQCV1031IAIB.GHFV2030D 
GDU1OSIGHGV2O02HG":REM LAST MEAS. | 

120 PLAY АФ:РГАҮ BS: PLAY C$: PLAY DS: P 
AY ES | 

130 PLAY BS: PLAY C$: PLAYFS 

140 COLOR4,7:COLORO, 16 


150 PRINT"£CLR3CGRY12"TAB(14); "{RVON} BER 


SERKOTRON" 

160 PRINT"{C/DN3{C/DNION THE WAY TO INTE 
RVIEW FOR А JOB AS A" 

170 PRINT"COMPUTER GAME TESTER YOU MADE 
A WRONG":PRINT"TURN..." 

180 PRINT"t€C/DN2 YOU FIND YOURSELF IN THE 
ROBOT ROOM AND";PRINT"YOU ARE NOT WELCO 
ME? 

190 PRINT"4C/DN32 YOU MAY USE JOYSTICK #2 
ОК THE CURSOR" 

200 PRINT"KEYS TO RUN THROUGH THE SIDE 0 


FR BOTTOM" TN 
210 PRINT"DOORS, WHICH WOULD YOU LIKE (J 


IKI? "j | 

220 GETKEYQ$: IFQ$< "2" 0К0%>"К"ТНЕМ220: ELS 
EV=ASC (0%) - 74: PRINTAS | 

230 PRINT"{C/DNSPLEASE ENTER YOUR FIRST 


: INITIAL" 


240 GETKEYIS: айнаны аны ы а 
EI-ASC(IS$)-6ó4 

290 PRINT" CCLR3CC/DN2YDU MUST AVOID THE 
ROBOTS ({RVON}R{RVOF})." 


260 PRINT"{C/DN}YOQUR ONE ADVANTAGE IS TH 


AT YOU CAN GO" 

270 PRINT" THROUGH THE BLACK CIRCLES WHIL 

E THE" ` 

280 PRINT"ROBOTS CANNOT. BUT THE CIRCLES 
VANISH" | 

290. PRINT"AS YOU PASS THROUGH, SO BE CAR 

EFUL. " 

300 PRINT"{C/DNSHIT ANY KEY TO START." 

310 GETKEYGS$S:PRINT"4OGRY123CCLR2*" 


320 Cz21106:N1219: N2236: K C/ UPD (C/ RTI 


C/DN3£C/LF3":SPz32: КВ-146: DVz40: DH=1:BL= 


160: PD=46 


330 FORX= 1065T01102: POKEX, 160: POKEX+800, | 
160: NEXT 

340 FORX-1105TO1825STEP40: POKER, 160: POKE 
At3?/, 160: NEXT 

350 POKE1465, 46:РОКЕ1502,46:РОКЕ1884,46 


Berserkotron 


360 FORXsOTO199:POKEC4*DVXINT (ЕМ (1) XN1) + 
(RND(1)XN2) ,81: NEXT 

370 R(1)51466:R(2) 31501: R (3) 21844: L C418 
380 FORXS1TOS3:POKER(X),RB: NEXT: POKEL , I 
390 REM START MOVEMENT | 
400 IFVTHEN420 

410 ON JOY(2)*1 600810, 430, 510, 440, 810, 
450, 810, 460, 810 

420 GETG$:0N INS TR (K&S, G8, 1071 6070810, 43 
0, 440, 450, 460 

430 D--DV:G0T0470 

440 D-2DH:60T0470 

450 D=DV:G0T0470 

460 D=-DH:G0T0470 

470 S0UND1,3000,1,0,3000,1,3 

480 ІЕРЕЕК (+0) 2BLTHENS10 

490 IFPEEK (LD) =PDTHEN640 

500 POKEL,SP:L=L+D:POKEL, І 

510 LY=INT((L-C) /DV) :LX-L-C-LYXDV 

520 FORX=1T03: DO | 
530 RYsSINT (ROO -C) /DV) : RX-R (X0 -C-RYXDV 
540 IFRX«LXTHENIFPEEK (R(X) +DH) <PDTHEND=D 
.H:60T0580 © 

550 IFRX>LXTHENIFPEEK (R(X) -DH) <PDTHEND=- 
DH: GOTOS80 

560 IFRY4LYTHENIFPEEK (R(X) +DV) <PDTHEND=D 
V:GOTO580 

570 IFRY>LYTHENIFPEEK (R(X) -DV) <PDTHEND= 
DV 

580 IFPEEK(R(X) +0) =ITHEN600 

590 POKER (X),8P:R(OO SR OO ID: POKER (X) , RB: 
NEXT: GOTO400 

200 REM CAUGHT 

610 COLOR4, 3:SOUND1, 20000, 490, 2, 10000, 10 
0 

620 SLEEPS: COL ORA, 7: SLEEP2 

630 PRINT" {CLR}{C/DN}{C/DN}"TAB(12) "YOU. 
WERE CAUGHT!":GOTO660 

640 REM SAFE 

650 COLOR4,6:SLEEP4: PRINT" CCLR3 CC/DN3£C/ 
‘DN}"TAB(14) "YOU MADE IT!":COLOR4,7 

660 PRINT" {C/DN3{C/DN3{C/DN3"TAB(11) "PLA 
Y AGAIN (Y/N) 2 

670 GETKEYGS$: IFG$-"Y"THENRUN: ELSEIFG$4?»" 
N'THENé70:ELSE END 


119 


120 


Step-by-Step 
Computer Guides 
. from HPBooks 


35 Amazing Games/Commodore 64— Mihalik š $9.95 


35 Amazing Games/Commodore 128— Mihalik 9.95 
Basic Program Conversion —CSB/Crider 12.95 
Commodore 64 Basic for Beginners—Shipman 12.95 
The Essential Commodore 128 User's Guide Willis 12.95 
Program ІВМ PC Advanced — Shipman (г) 17.95 
Program IBM PC Beginners—Shipman (r) 17.95 
Program ІВМ PC Color & Graphics—Shipman 24.95 
Quick and Easy WordStar 2000—Crider 14.95 


VisiCalc Apple Il, II , lle — Craver (г) 17.95 


(г) ring bound | | 
All other books are paperback. 


Hp computer books are available wherever fine books are sold, or 


order direct from the publisher. Send check or money order payable in 
U.S. funds to: 


HPBooks, Inc., P.O. Box 5367, Dept. ОАС-76, Tucson, AZ 85703 
Include $1.95 postage and handling for first book; $1.00 for each 


additional book. Arizona residents add 796 sales tax. Please allow 4-6 
weeks for delivery. Prices subject to change. 
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